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Citanje ovog uvoda disti je gubitak tvoga dragocenog vremena 
i radunarovih mi krosekundi - Zata preskodi nekoliko kilobajtova 
teksta na ovim stranama, otrdi do radunara, ukljudi ga i u 
knjizi izaberi prikladan program. A zatim, Perice, juri^ na 
gumi ce ! 

Jo4 dita^, umesto da se baci4 na posao? Kako hode^, knjiga je 
na^e najvede blago! 

Verovatno znate pridu o udeniku koji je udio kovadki zanat. 
Tri godine je gledao majstora kako radi , a kad mu je otac kupio 
kovadnicu, ni je umeo da iskuje ni^ta upotrebl j i vo. Moida i vi 
mislite da dete postati odlidni programeri ili eventualno 
pametniji od kom^ija koji jo^ nemaju radunar, ako budete s 
palcem na okidadu buljili u ekran7 

Ova knjiga pru±a vam dve mogudnosti : prvo, da naudite 
program! ran je u bejsiku; drugo, ostavide vam mnogo simpatidnih 
igara i korisnih programa. Svi oni de vam u bududem radu 
posluiiti samo kao okosnica. Ako ih budete korigirali, udinili 
boljim i zaniml jivi jim, po^aljite ih u uredni^tvo na^e revije, a 
mi demo ih poetaviti onde, gde im je i mesto: na one strane 
najditanije jugosl ovenske radunarske revije predvidene za te 
programe- 

Ovom knjigom, prvom iz svoje biblioteke, Moj mikro ±eli da 
popuni prazninu u dcrtnadoj radunarskoj literaturi- Po^to smo uvek 
podsticali kreativnost ditalaca, izbor programa zaista nije bio 
problem- Oeam strana, na koliko Moj mikro objavljuje programe, 
ni u kom sludaju nije dovoljno za sve ome kasete i listinge, 
koji svaki dan stiSu u na^e uredni^tvo. Nastojali smo za knjigu 
ostaviti ^to vi^e karakteristidnih programa, da bismo vlasniku 
radunara najpotpunije predstavili mogudnosti koje pruSa ugradeni 
programski jezik bejsik. Istovremeno delimo da ga naudimo 
tehnici program! ran ja, pa dak i sitnim trikovima i magiji da bi 
mu radunar postao jo^ pristupadni jim. 

Uzgreds brojevi ispod naziva programa nisu nikakve 
tajanstvene hakerske ^itre, nego predstavl jaju ’duiinu programa u 
bajtovima- Uskoro dete nauditi kako te brojeve prevesti u 
vremenske jedinice i tako dete videti da li dete, pre nego ^to 
se na vasem kudnom televizoru podnu da ubijaju -filmski dandari i 
lopovi, uspeti da ukucate jo^ neku streljadku ve±bu. 

Igre ne mogu ni u kojem sludaju da se usporede s remek-deiima 
protesionalnih kovada snova, al i de zato igrica u bejsiku, koju 
sami napi^ete ili upotpunite, vama pruditi jos vi^e radosti. 
Samo pomisiite na to kakvo vamzadovol jstvo mode pruditi pucanje 
u novu nastavnicu iz matematike ili u novog ^eja! Modda Marsovci 
1 nisu krivi za sve zlo na ovom svetu. 

Nedete saznati koliko modete da naudite dok budete nastojali 
da uiepSate slidice ili ubrzate izvodenje neke petlje. Nista ne 


treda da ostane 
da objasnimo ita 
upotpuni. Na taj 
ljudi koji znajLi 


tajna. U vezi sa svim programima trudili smo se 
rade i savetovali sta moSe da se popravi ili 
natin netete postati automati za kucanje, neqo 
da naredujLi radunaru. 


U naSoj reviji radunar ved kuva kafu, ako mu dovol ino duqo 
ubedljivo naredujemo! 


Ako budete marljivo kucali 
radunaru modi da skuvate kafu! 
programs i dok dodete do kraja 
zadto je radunar tako vreo. 


i udili, moida date i vi na 
Ne verujete? Podnite da izvodite 
knjige bide vam, moida, jasno 


2iga Turk i Ciril Kra^evec 


Pogrami u ovoj knjizi nisu ispisani naredbom LLIST. neqo smo se 
posluiili 5 proqramom LLIST 2.0 ((c) 2.T.). Nadamo ae da su 
proqrami zato preqledniji i da de kucanje biti lak^e. Takav 
listing ima nekoliko karakteristi ka, zbog dega savetujemo da pre 
^bcanja proditate nekoliko slededih redova. 


2 . 


3. 

4. 
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Za brojeve redova rezervisano Je prvih pet kolona. U njih se 
ne Stampa sadriaj reda. Na kraju reda redi se ne dele, neqo 
SU zapisuju u novom redu. 

Blok grafika Stampana je tadno takva onakva ie i na 
tastaturi. 

tZDG znaci zapisani su kurzivom. 

Inverzni znaci koji se kucaju pritiskom na taster INVERSE 
^ true video <TV>, zapisani su naglaSeno i 
podvudeni su. Prilikom kucanja potrebno je pre prvog znaka 
pritisnuti taster <IV>, a iza poslednieg <TV>. 

Kodovi za boje, koji se kucaju u E nadinu pritiskom na broj, 
napisani su izmedu dva trougla. <i7> znadi da treba 
tastera i tako predi u E nadin, a zatim 
^ si 1 dan nadin oznadeni su jo4 i PAPER 

RIGHT 1 FLASH, koji se takode unose kao nevidljivi kontrolni 
snakovi . 

Izmedu navodnika i u redovima REM su razmaci (SPACE) 
oznadeni znakom koji podseda na karo. Broj razmaka vaian je 
samo Dvde, drugde ih ne treba kucati . Karom su oznadeni da 
bismo ih lak^e prebrojali. 


Sve Sto budete videti u ovoj knjizi pripremljeno je radunarom 
Sinclair spectrum i Stampano itampadem Star delta. Slike na 
naslovnoj strani s dozvolom su pozajmljene iz igre "KONTRABANT 
^ , gde takvih i jo^ lep^ih siika into vi4e od 30. CrteSe je 
nacrtao SaSo Jankovid, a u radunar ih je pomodu programa PIXASSO 
preneo Matevi kmet i f otogra-f i sao Nikola Si mid. 



FIKCICHE IGRE 




1 dosia iz bosanskih planina, gde se - ka*u - 

i nlih'' protiv vL.kova. El ektr i f i kaci ja je obuhvatila 

njih, pa se i gorStaci, kad im vukovi dozvole predah rado 

igraju raeunarima. Hrabrog seljaka sa sekiro. "^ZrltL da 
postavite ispred brdskog sela da ga brani od vukova. Ako uspete 

"""" odn™" p:^ 

Conor Sef r nastojati da zaostave divlji 

copor. Seljaka pomerate tasterima 5 do 8 

U redovima od 10-80. nalaze se uputstva i i ni ci jal i ^ aci ia 
pro.enljxvih. Od 80. do 180. de+iniSu se grafidki znako;r 
^ive 1 mrtve vukove, stabla, za ±ive i mrtve sel iake. U 400 

" 90 " ^OO d^ 

-ver I! -HA tastatura i, ako bude sreCe, ubija 

^ver. U .;.80 redo se uz veselo zviidanje ispide rezultat. 

10 LET LET mi = 10: CLS : BORDER 2: PAPER 2: INK 7: 

!, F’RINT at U, 12; "VUKOVI": PAUSE 200: BORDER 2: PAPER 2: 

2o PRINT AT 3,0; "BRDSKO*SELO''UGROZAVAJU*GLADN1*!>*VUKOVI . STVOJ-s- 
JE'-'Z ADATAK*DA*<"!-i>-s-ipOB IJES:'ST0*y I SE*VUK0VA<> I OTAK0**SPAS I S* 

SVOJEi-SELO. ■5-AKD*TI'>5-!-s-!>':>*VUK0VA*P0BEGNE, '>POJESCE*SVE**<>'S* 

SELJAKE. " 

30 PAUSE 0: CLS 

40 BORDER 2: PAPER 2: INK 7 

50 LET 5C=0 

60 LET li=5 

70 FOR n=l TO 7 

So READ p$ 

90 FOR m=0 TO 7 
100 READ a: POKE USR p$+m,a 

no DATA "g",BIN 00111100, BIN 01000010, BIN lOOOOOlo.BIN 
1 OOUOO 1 0 , B I N 1 00000 1 0 , B I N 1 00000 1 0 , B I N 110101 00 ' B I N 
11111110 

no BATA c ,EiIN 000111oO,BIN 00101010, BIN 10010100, BIN 
UIOOIOOI , BIN 0011 1 1 10, BIN 00001000, BIN 00010100 BIN 
00110110 ' ■ 

IM LiaIA ”j",BIN 0001 0000, bin 00010000, bin 11111110, BIN 
000 1 OUOO , B 1 N 000 1 0000 , B I N 000 1 0000 , B I N 000 1 0000 ’ B I N 
OOOl'JOOu 

I4u DATA "p",BIN 00010000, BIN 00101010, BIN OOOiOlOO BIN 
OUOO 1 000 , B 1 N 00 1 1 1 1 1 1 , B I N 01 00 1 000 , B I N 1 >00 1 o 1 00 ’ B I N 
OOllOllO 

150 DATA “o",0,BIN 01100000, BIN 01100000, BIN 01000000, BIN 
ilUUUUUU„BiN 01000000, BIN 01000000, BIN 0 " 

.60 DAIA "d" -bOf- bTt- ,0,BIN 00100000, BIN 11100010, BIN onmoo 
BIN 001 11 100, BIN 00100100, BIN 00100100,0 
70 DA T A " h " , B I N 000 1 1 1 00 , B 1 N 00 1 1 1 1 1 0 , B I N 0 1 1 1 1 1 1 1 , < i 6*' > 1 0-" < 
i/'BIN o0111110,BIN 00010100, BIN 00010100, BIN 00010100 o 
Bu NEXT m: NEXT n 

90 PRINT _"NAJB0LJI«REZULTAT<>";mi,"P0STI6A0<>JE-:>";b$: PAUSE 0: 

CLS : PRINT AT 0,0; "p": PRINT AT 0,1; "P": PRINT AT 0 9."p". 

PRINT AT 0,3; "p": PRINT AT 0,4; "p": LET 5c=0 
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JOO bO SUB 41J0 

ilO LET a=ll: LET b=ll 

220 FOR v=l TO 20: PRINT AT v,3l! INK NEXT v 

230 LET s=INT (RNLI*20) + 1: LET d=30 
240 PRINT AT a,b;''Py" 

250 IF U=4 I HEN PRINT AT 0,4; "«-6" 

260 IF li=3 THEN PRINT AT 0,3;'‘*S" 

270 IF li=2 Then print at 0,2; “*S" 

280 IF li=l THEN PRINT AT 0,1; "*5" 

290 IF li=0 AND sc>=mi THEN 60 TO 45Ci 
300 PRINT AT s,d;"B" 

310 IF d = l THEN PRINT AT 5,d;"*'‘: LET li = li~l: LET d=31: LET 
5=INT (RND«20)+1: IF li=0 AND sc<mi THEN CLS : PRINT AT 11, 
0 ; " TVDJ I -s-SEL J AC I <:>SU*MRTV I " , “ UB 1 0*8 1 <> ; sc ; " OVUKOVA '' , " HOCES* 
PONOVO(D/.N) INPUT a$: IF a$="D" OR a$='’d" THEN CLS : LET 
Ii=5: 60 TO 190 

320 IF 1 1=0 AND 5C<mi THEN STOP 

330 LET d=d-l: BEEP 0.005,30: PRINT AT s, d + 1 : IF d=0 THEN 

PRINT AT a,d;"5": 60 TO 250 

340 IF INKEY$="S" THEN LET b=b + l: PRINT AT a, b-1 : IF b=31 

THEN LET b=30 

350 IF INKEYf="5'' -'ly*- THEN LET b=b-l: PRINT AT a, b + 1 ; : IF 

b=0 THEN LET b=l 

360 IF INKEY$="6" THEN LET a=a+l:: PRINT AT a -1 , b : IF 
a=21 THEN LET a=20 

370 IF INKEY$=''7“ THEN LET a=a-l: PRINT AT a+1 ,b; 

380 IF a=5 AND b=d THEN BEEP 0.5,40: BEEP 0.005,30: PRINT AT a 
d;"<>‘': LET d=31: LET 5=INT (RND*20)+1: LET sc=5c + l: PRINT 
AT 0,21; "MRTVIH=";sc: PRINT AT a, b+1 . 5; " J" : 60 TO 300 
390 60 TO 240 
400 FOR y=l TO 40 

410 LET 2 =INT (RND*21)+1: LET x=INT (RND»28) 

420 PRINT AT z,x; INK 4; 

430 NEXT y 
440 RETURN 
450 CLS 

460 FOR q=0 TO 30 
470 BEEP 0.005,q 
480 NEXT q 

490 CLS : FDR 1=1 TO 20 
500 PRINT AT 16, 12; "HURA ! " 

510 PRINT AT 6, 12; "HURA!" 

520 PRINT AT 11,15;"P": BEEP 0.005,20 
530 CLS 

540 PRINT AT 11,15; "C": BEEP 0.005,-30 
550 FOR k=6 TO 16 

560 PRINT AT k, 5; "HURA": PRINT AT k, 20; "HURA" 

570 NEXT k: NEXT 1 

580 FDR x=0 TO 30: BEEP 0.005,x: NEXT x 

590 CLS : PRINT "P0STI6A0iSI-!’NAJB0LJI " , "REZULTAT" 

600 PRINT "UFTSI*SyOJE*IME": INPUT b$ 

610 LET iiii=sc 

620 CLS : PRINT "2ELIS«Lr5pONOVO'7(D/N) " 

630 INPUT g$ 

640 IF g$="D" OR g!t="d" THEN CLS : LET li=5: 60 TO 190 
650 STOP 
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maraka "riko platidete nekoliko hiljada 

maraka, a ako kod kude imate spectrum plaCen detiri stotine 
nedete imati nikakvih problema. skotine, 

Radunar de najpre na ekran nacrtati krdo iivotinja i neqde u 
uglu zatreperide kavez. Zadatak je da tim kavezL neLko 
p" -ivotinje, odnosno da ih strpate u zooloSke vrtove. 

si mhei pozove potprogram za de-finisanje grafidkih 

simbola 1 ispisivanje uputstava. Izmedu 20. i 90 reda 

‘iete uloviti, odnosno u koji deo 
Atrike treba radunar da vas postavi (onde gde ima vi4e ili negde 
gde ima manje Sivotinja). Izmedu 100. i 200. reda nala’i =e 
glavna petlja u kojoj ditate tastaturu i premeditate kavez ^ k ada 
pohvatate sve divotinje pritisnite taster 1 . Steta Radunar 

dobr^ lati programa ocenjuje da li ste 

l°vci, a zatim vas ponovo Salje u lov. 
rogram je kratak i jednostavan . Mnogo detal ia moiete i da 
popravite. Najvide bode u odi da vreme t ni je pravo vreL neoo 

krorpetlju ^MoLr P- 1 i -akog prolaska prograL 

z petlju. Modda bi trebalo uvesti pravo vreme, tako da 

"f Z^spec^rCf ' T promenljive koje navodi p^frudni: 

^a ZX spectrum. Ocenjivanje nije najpravedni ie, rezultat bi 
morao da zavisi i od toga kol i ko tivotinja ulovit;, Tne sal od 

treha"d' ^ J ^ treba da bude uslov. U redu 200. i 210 

^avisi 1 od tog koliko divotinja u stvari ulovite. Jod 

iloWM taster 1, kojim oznadavate da ste 

lovili sve ^ivotinje, pritisnite jofi onda dok iivotinje mirno 

revijeK^^''^"^"'^ ^ odgovorni urednik: nade 


10 GO SUB 240 

20 LET t=0: LET a==0: LET b==0 
30 INPUT "*K0LIK0*ZiyuTINJAi">i»" ; 
40 CLS 

50 IF n>100 THEN GO TO 30 
60 FOR y=l TO N 
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70 PF(INT AT (RMD*20) , (RND*31 ) ; 'O,'-'" 

80 BEEP .009,- '10 
90 NEXT V 
100 LET t==t+l 

1 1 0 LET a = a+ ( I NLEY*== " 6 " ) - f I NH::E;Y*== " 7 " ) 

1 20 LET a==a+ ( a< 0 i - ( a >2 1 ) 

1 0 LET ta = b+ < INKEY$=="8" ) - ( INKEY!ji="5’' ) 

140 LET b=b+(b<0)-(b>30) 

1 bo T'P' 1 Mi aT ant)!;'' AB " 

160 BEEP .03,1 
170 PRINT AT a, b 

180 IF INKEY$=‘’l" THEN GO TO 200 
190 GO TO 100 

200 IF t<70 THEN PRINT AT 10,13; FLASH 1 ; " DOBRD " ’ ’ " * I 90 I 1 NJE 
S I *UL09 1 0*0 " ' " VREMENU* " ; t ; " ** " 

210 IF t:> = 70 THEN PRINT AT 10,13; FLASH 1 ; " SLABO " ’ ’ " a* 

Z I VOT I N J E-i-S I s-ULOV I OaU " ’ " yREMENU* " ; t ; " o* " 

220 FOR p==l TO 500: NEXT p 
230 CLS : GO TO 10 

240 PAPER 4: BORDER 4: INK 2: CLS 
250 PRINT AT 0,13; FLASH 1; "SAFARI" 

2 1! 0 F' R I N T AT 5 , 1 ; " V 0 Z I * K A V E Z * P 0 A F R I C I * I ' a U L 0 v I <■' * " <■ Z I V O □ I N J E . " ’ 

* K A 0 a P R V □ a U K U C A J * K 0 L I K 0 * Z 1 9 0 T I N J A a C E S L 0 9 ITI . " 

2 7 0 P Fv I N T A T 1 0 , 4 ; " 5 = L. E 9 O ' ' ; A T 1 1 , 4 ; " 6 == D 0 L E " ; A T 12,4; " 7 = LT 0 RE” 

; AT 13, 4; "8=DESN0" : AT 14,4; " 1 =Z A*KRAJ* I GRE* (KAD*UL091S*'>Y* 
<'*'SS9E*ZI90TINJE) " 

280 RESTORE : FOR n = 0 TO 7: READ r: POKE LJSR "A"+n,r-: NEXT n 
290 DATA BIN llllllll.BIN 10101010, BIN 10101010, BIN 10101010, 
BIN 1 0 1 0 1 0 1 Cl , B I N 1 0 1 0 1 0 1 0 , B I N 1 0 1 0 1 0 1 0 , E I N 1 111111 1 
300 FOR n=0 TO 7: READ r: POKE USR " S " +n , r : NEXT n 
310 DATA BIN 11 11 110, BIN 10101010, BIN 10101010, BIN 10101010, 

B I N 1 0 1 0 1 0 1 0 , B I N 1 0 1 0 1 0 1 0 , B I N 1 0 1 O 1 0 1 0 , B I N 1111111 0 
320 FOR n=0 TO 7: READ r: POKE USR "C"+n,r: NEXT n 
'330 DATA BIN 1 00 1 0000 , B I N 011 00000 , B I N 1 00 1 00 1 0 , B I N 0 1101111, 
BIN Cl 1 1 1 1 1 1 1 , B I N 1 0 1 0 1 1 1 1 , B I N 1 00000 1 , E I N Ci 1 TOC) 1 0 
340 RETURN 
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Zamislite da ste priglupi kengur i da vas uhvati ludi krai i 
koji ^eli da ustanovi vaS kvocijent Intel igenci ie. Ako to umete 
da zamislite dovoljno iivo, onda je ovo igra za vas. Nile siivlie 
dugadka, a zabavide vas do kasno u nod. Namenjena je svima koji 
ved znajLi da igraju igre kao 4to su Manic Miner i Jet Set Willy 
Oni koji to ne umeju naudi de osnovne veStine skakanja po 
railicitim sobama. 

odskakMdete 1 ^ veoma je jednostavno. Kengurom morate da 

cdskakLidete kroz sobu i, razume se, potraSite izlaz. Motete da 
p. 1 isnete bilo koji taster, a najbolji rezultat dete postidi 
ako^kengura vodite tasterima 5 (levo) i 8 (desno) . On ume da 

Program je odozgo nadole prilidno jasno zapisan. Od 2 do 90 
reda nadi dete uputstva i dePinisanje grafidkih znakova. Od 95.' 
do loO. nacrta se soba. Blavna petlja i ditanje tastature nalaze 
se Li redovima o80-615. Potprogram izmedu 620. i 640. reda nacrta 
kengura 1 pogleda da li skok zavr4i na crvenoj cigli i da li su 
u redovima od 700. do 730. otvorena vrata. 0 redovima od 2000. 

testiraju se razliditi polotaji kengura (padovi u vodu, 
dosk^ci, odskoci ltd.). U redovima od 2600-2700. primetidete da 
prolaskom kroz prvu sobu joS nije kraj svih problema. 
i-adatak: Umrite u redovima od 5000. do 5070. reda. 

KENGUR" 


2»REM» SET0UP<-1 

3 LET qw=0 

4 LET at="I" 

5 DATA 255,129,129,129,129,129,129.255 

10 FOR n=0 TO 7: READ a: POKE USR ''q''+n,a: NEXT n 
12 DATA 24,24,16,60,48,120,136,4 
14 FOR n=0 TO 7: READ a: POKE USR "i"+n,a: NEXT n 
16 DATA 24,24,8,60,12,30,17,32 

18 FOR n=0 TO 7: READ a: POKE USR "j"+n,a: NEXT n 
20 BORDER 2: PAPER 0: CLS 

30 PRINT AT 1,9; FLASH 1; INK 6; "GLUFj-i-KENGUR" 

40 INK 7: PRINT AT 4,0;"Zamisli,i'da*5i*glup*k:engur.-!“>**K' 

U h V a t i o ■■ ■■ t e j e ■■ 0 Li d i j, r a 1 j'- i d a o n a - 1 e 5 1 i r a n j e ■■■■■ d a u 5 1 a n o V i ■■■■■ 
tvDj<- :>koeticijent '>intel igenci je-:j v'S-M’S-psi hi cke*sposobnosti . 

50 PRINT : PRINT 

60 PRINT "Potrazi ti - moras'itiacin -'kakoi izaci i z*5vake-'>SDbe. ” : 

PRINT : PRINT ”Jedini«nacin*da*prezivis'>je'>da'--' " 

F'KjNT : F'RINT ‘'■■■■■'■'■'■■■■■'■■■■■■'■si edi e'--''5mer . " 

70 PRINT : PRINT : PRINT "UPOTREBLJAVAJ : 'i-S'S'S'za'il eva'H ■J'-ooO'i-O'S-* 

k g ^ ^ (j 0 3 |-j q '» 

SO PAUSE 0 

86 PAUSE 0: CLS : PRINT : PRINT "Pst . . . . mozda'S'ces'S'l akse'^da'^*'*-!' 

••• n a d j e 5 ■•••■ i 2 1 a z a k o '•••■ s k: o c i s n a c r v e n u i g 1 u . " 

87 IF INKEY$<>"" THEN GO TO 87 

88 PAUSE 0 
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VO LET sc~0: LET 1=^1: LET n‘ieri-3 

95<>REH<- SET'>UP02 
100 LET y=17: LET k=2 
110 CLS 

120 PRINT "TEST*br. 1 ; "'-kengura: : FOR i = l TO men: PRINT ; 

INK 3;"T";: NEXT i: PRINT ’'*POENI = "; INK 4; sc;"**'" 

130 INK b: PRINT AT 21 ,0; "liiJUijQiSuQuQCiQQiJOQQQQQijQQaQQQ’jU’lOQ'' ;fiT 
20 , 0 ; "OaQQQ " ; PAPER 1 ; " " ; F APER 0 ; " 

QQQ " ; AT 19,0;" aQQQQ " ; PAPER 1 ; " .. . 

PAPER 0 ; " QQO . " ; AT 18,0;" UOSSQ " 

140 PRINT AT l,0\“QaaQQQQQaaQQQQai:iuQQQQQQuCiOQrjQQaa" : FOR i =2 
TO 17: PRINT AT i,0;"U";AT i,31;"Q": NEXT i 
150 BEEP 1/2. 5, -34: PAUSE 4: BEEP 1/2. 5, -30: PAUSE 4: BEEP 1/2. 
5,-26: PAUSE 4: BEEP 1/2. 5, -18: PAUSE 2: BEEP 1/1.25,-22: 
FOR i=l TO 4: PAUSE 2: BEEP 1 /5, (-22-2*1 ) : NEXT i 


ISl’/RENi’ olavniOl 

155 IF 1=5 THEN GO TO 2600 

160 GO SUE 2000+1*100 

400*-REI'l - q 1 avni <*2 

490 LET e=K: LET r=y 

500 IF y>19 THEN GO TO 5000 

510 IF SCREEN* (y+l,x )<>"*" THEN LET q=2: IF qw=l AND INT (RND* 
10)=1 THEN PRINT AT y+l,x;"'/": PRINT AT INT (RND*18+1 ) , INT 
(RND*27+2) ; "S" 

520 IF q=-l THEN GO TO 600 

530 LET r=r-l 

540 LET q=q-l 

560 BEEP (q+l)/100,-20 

580 -REN -/ Q I avn i -*3 

600 IF INKEY$="S" THEN LET a$="T" 

601 IF INKEY*="5" THEN LET at="J" 

602 LET e=e+(INKEY$="8")-(INKEY*="5") 

603 IF e;31 THEN LET 1=1+1: LET sc=5c+l*2: GO TO 100 

604 PRINT AT y,::;"*" 

605 IF SCREEN* (r,e)<>"*" THEN GO TO 630 

610 IF SCREEN* (r+l,e)="«" AND q=-l THEN LET r=r+l 
615 LET y=r: LET K=e 

620*REM*MAIN24 

630 PRINT AT y,;-;; INK 3; a* 

63.5 IF y=ky AND :, = k:-; THEN GO SUB 700 
640 GO TO 490 

699<’REM/ DdDri 

700 PRINT AT 15, 31 AT 14,31;"*" 

710 BEEP 1/100,30: BEEP 1/50,10 
720 LET 5C=sc: + l 

725 PRINT AT y+l,.x; INK 6;"/)": LET ky=0: LET kx=0 
730 RETURN 

2099*REh* TEST*l 

2100 PRINT AT 1 5 , 7 (3« "; AT 10, 7; "•(}«" ; PAPER 2;"(3"; PAPER 0; " 
00 " 
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2105 PRINT AT 13, 1 ; "(JtJud" ; AT 13, 17; 

2140 LET t;y=9: LET kK=9 
2150 RETURN 

2199'>REri'>TEST*2 

2200 PRINT AT 14,1; PAPER PAPER 0; "S" 

2210 FOR 1=9 TO 29 STEP 5: PRINT AT 19-i /5,’ i -1 ; "flu" ; AT ll+i /5 i 
2; "13"; NEXT i ' ’ 

2220 LET l;y=13; LET kK = l 
2250 RETURN 

2299«REN!» TE5T<‘3 

2300 PRINT AT 4,1; PAPER 2;'Vj": PAPER 0; 

2310 FOR i = l .TO 6; PRINT AT 20-i *3, i *4; ; AT ( i »3+2) , (i *4+3) ■ 

QO"; NEXT i > - > 

2320 LET ky=3: LET kK=l 
2350 RETURN 

2399<>REN-» TEST94 

2400 FOR 1=9 TO 24 STEP 5; PRINT AT 19, i ; -O" ; AT 20,1;-, 9". NEXT 
i 

2410 FOR 1=1 TO 3: PRINT AT i*5,l;"0": IF i >1 THEN PRINT AT (i* 
5-2) ,4; 

2420 NEXT i 

2430 PRINT AT 4,5; PAPER 2; ".9" 

2440 LET ky=3: LET k;;=5 
2450 RETURN 

2599 >REM5N0VAFAZA 

2600 LET 1=1 
2610 LET 5c=5c+5 

2620 FOR i=-30 TO 30; BEEP 1/100, i; NEXT i 

2640 PRINT AT 10,10; FLASH 1 ; “ PREKR ASNO<> I « " ; FOR i = l TO 500; 

NEXT i; PRINT ; PRINT "Ali*zao-»kralj'Lie*DdIuciD,'>da<te* 
testira-- jos-'-jednom, *da*se« Liver i-uotacnost'resul tat a " 

2650 FOR i=30 TO -30 STEP -1; BEEP 1/100,1: NEXT i 
2660 PAUSE 350 

2670 PRINT : PRINT "(iiojda'!>ces''>nai ci Ona'i-neke'-'i zmene" 

2680 PAUSE 150 
2690 LET qw=l 
2695 LET /nen=men+l 
2700 GO TO 100 

4999!>REM:>SMBI 

5000 FOR i=l TO 5: BEEP 1/5, (i»5): BEEP 1/10, (i*2): NEXT i 
5010 LET men=men-l 
5020 CLS 

5030 PRINT AT 7,0; ''Upravo'S'si Oustanovi D!'da!'je!>vDda'>*puna* 

kr okod i I a'-'ko j i ■■■■J edit W I II 

50:i5 PRINT : PRINT : PRINT " jos*" ; men ; ''*z i vota" 

5040 IF INKEY$<>"" THEN 60 TO 5040 
5045 PAUSE 0 

5050 IF men>0 THEN GO TO 100 

5060 F'RINT : PRINT "Osvoji o''>5i ■/” ; sc ; "*poena. " 

5070 FOR i=l TO 100: NEXT i: RUN 
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I ova se igra u na^oj redakciji rado igrala, po^to mnogi od 
nas jo^ nismo imali prilike skakati pravifn padobranom- Ovim 
programom ublaiili smo svoje komplekse iz rane mladosti (kod 
poslovnih ljudi ionako nikad ne zna ko gde skade) . 

Avion moie da leti vi^e ili niie, br±e ili sporije. Treba 
iBkoditi Li pravom trenutku, a zatim padobran otvoriti tako da 
pogodite jedino parde suve zemlje- Morate da padnete tadno u 
sredinu- Zamislite da na vas puca neprijatelj. Zbog toga je 
zdrava da ^to pre budete na zemlji. Padobran otvorite Sto 
kasnije, a ipak biagovremeno da ostanete iivi. 

Program se sastoji od pet delova- U prvom je i ni ci jal i zaci ja- 
Od 120. do 170, reda; gde odgovorate na nekoliko pitanja o 
evojim padobranskim sposobnosti ma, de-fini^ete grafidke znakove, 
izaberete brzinu aviona itd. U redovima od 180. do 230- vozite 
ae avionom dok ne pritisnete taster nula, ^to znadi skok. U 
redovima od 240. do 310- slobodno padate- Ako ste ti 280. redu 
otvorili padobran, moiemo menjati smer, dok ne padnemo na 
sredinu ostrva ili, na^alost, ne poginete. Od 170- do 550. reda 
pribrajaju vam se ili oduzimaju Sivoti. Na samom kraju Je 
obavezna definicija gra-fidkih znakova i uputstva- 
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lOoRtM* "padobran “ 

20 60 SUB 580 
30 LET p$="*y'>" 

40 LET 5C=0: LET n=2: LET 1=3: LET i=3: LET cs=120 
50 LET t=INT (RND*31) 

60 IF t>27 THEN GO TO 20: IF t<2 THEN 60 TO 20 

80 LET 

90 LET a$="«PT*'' 

100 INPUT "BRZINA*A'.'I0NA<(l*do»100)*";s: LET 5=101-5 
110 PRINT AT 21,3; "PRITISNi :>NA«BIL0'>K0JUiGUHICU" 
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120 PAUSE 0 

130 PAUSE 20: CLS : FOR e=10 TO 1 STEP -1 
140 LET t=INT (RND*30) 

150 CLS : PRINT AT 0,0; INK 9; PAPER 2;"P0EN1- " ; sc; " ■ >ZiyOTI= 
";l;"*'?SKOKOVI = ";e 
160 LET a=n: LET b=0 
170 PRINT AT 18, t; INK 0;''XXX" 

180''REM***avion** 

190 PRINT AT a,b;a$: PAUSE s 
2*10 F'RINT AT 19,0; INK 4;q$ 

210 LET b=b+l: IF b>30 THEN PRINT AT 1 0, 7; "PREKASNO" : PAUSE 40 
CLS : PRINT AT 19,0; INK 4;g$: PRINT AT 18, t; INK 0;''XXX": 
GO TO 480 

220 IF INKEY$="0'' THEN GO TO 250 
230 GO TO 190 

240OREM';' » » sk ok * * 

250 LET c=a: LET d=b 

260 PRINT AT 18, t; INK 0;"XXX" 

270 PRINT AT c,d;m$;AT c-1 , d + 1 ; 

280 IF INKEY$="9" THEN GO TO 320 
290 PAUSE 3 

300 LET c=c+l: IF c>18 THEN GO TO 480 
310 60 TO 270 

320 IF c>17 THEN GO TO 260 
330 LET 2=c 

340 PRINT AT c,d;p$;TAB d;m$;AT c-1 , d + 1 ; : FOR 4 = 1 TO 50; 
NEXT f 

350 PRINT AT c,d+l;''*" 

360 LET c=c+l 

370 IF c=17 AND d=t THEN GO TO 420 
380 IF c>17 THEN GO TO 480 

390 LET d=d+ ( INKEY$="S'' ) - ( INKEY$="5“ ) : IF d>30 THEN LET d=d-l 
400 IF d«5 THEN LET d=d+l 
410 GO TO 340 

420 PRINT AT 17,t;m$: BEEP ,05,10 
430 LET sc=5c+2 
440 PAUSE 50 
45*1 NEXT e 

460 IF 1=1 AND sc>=cs THEN LET 1=1+1; 60 TO 550 


470'>REM*it:it;zivoti ** 

480 LET 1=1-1 

490 IF 1=0 THEN GO TO 530 

500 BEEP ,5,-10 

510 NEXT e 

520 GO TO 550 

530 PRINT AT 19,0; INK 4;g$; PRINT AT 0,0;"p0ENI = s";sc;"-!>* 
ZIV0TI=*'';1 + 1;AT 0, 19; "<>SK0K0VI = '' ; e+1 : PRINT AT 15,’lO;'' 
KRAJ*IGRE‘' ■ 

40 FOR g=5 TO -5 STEP -1; BEEP ,05,g: NEXT g: STOP 
50 LET n=ri+2: FOR z = l IQ 20: BEEP .01,z + l: BEEP .01,z-l: NEXT 
c: IF a>13 THEN PRINT AT 10, 0; "USPESNO*SI-'! ZAVRSIOiSYOJ* 
ZADATAK": STOP 
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■j60 let i=i + l: LET cs=c5 
Li70 LET e=10: 6Q TO 120 


580 FOR f=0 TO 7: READ a: POKE LISR "p"+-f,a: NEXT i 

590 FOR n=0 TO 7: READ b: POKE USR "t"+n,b: NEXT n 

600 FOR g=0 TO 7: READ c: POKE USR ''r"+g,c: NEXT g 

610 FOR h=0 TO 7: READ d! POKE USR "o"+h.d: NEXT h 

620 DATA BIN O.BIN 11000000, BIN 11000111, BIN 11111100, BIN 
11111110,BIN 11111101,BiN 000001 11, BIN 0 
630 DATA 0,0, BIN 11100000, BIN 00111111, BIN 01011111, BIN 
1001 11 10, BIN 11100000,0 

640 DATA BIN 0001 1100, BIN 0101 1101, BIN 01001001, BIN 00111110 
BIN 00001000, BIN 00010100, BIN 00100010, BIN 00100010 
650 DATA BIN 00111110, BIN 001 1 1 1 10, 128, 255, BIN 01000010, BIN 
0 1 0000 1 0 , B I N 0 1 0000 1 0 , B I N 00 1001 00 
660 PAPER 5: CLS 

670 PRINT INK 1 ; ’ "UPOTREBLJAVAJ : (i ZA SI 01 

9 ZA FADOBRAN 8 DESNO 

5 LEVO ' ' ■ ' 

> ’ " ' ' STO I ASNIJE*OTVQRIS 

PADOBRAN,'''TO<>VISE FDENA ' SDOBIJAS*!" 

680 RETURN 
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Program iznosi samo nekoliko redova, a ipak nimalo ne 
2305taje za duiim igrama iz ove knjige- Udideto da se takmidite 
automobilom. Upozoravamo vas da je put uzan, a saobractaj u 
Buprotnom pravcu prilidno gust. Kacigu na glavu, nogu na gas i 
^to boljim rezultatima u susret- Morate da upamtite samo dva 
tastera: 1 pomeri va4 automobil ulevo, a O (nula) udesno. 

Put s automobilima koji dolaze iz suprotnog pravca pomera se 
nagore, prema vama. Ako se ni sa kirn ne sudarite^ trka se 
nastavlja- Ako predete preko pune tadke (to potvrduje i red 
230), zabavi je kraj. Unesredeni se helikopterom prebacuje u 
bol ni cu. 

Zadatak; Program bi mogao da se izvodi malo br±e kad bi se 
POINT u 230. redu zamenio funkcijom ATTR. Bilo bi lepo ugraditi 
i tunkciju s razliditim stepenima teSine, koja bi u lOO. i 190. 
redu nacrtala Siru put (vi%e praznih mesta!) i u 200. i 210. 
redu manje proti vni dki h automobil a. 



10'>REM*>"Utrke'' 

20 FOR a=0 TO 7 

30 READ s: POKE USR ''A''+a,5 

40 NEXT a 

50 DATA BIN 00111000, BIN 10010010, BIN 10111010, BIN 00111000, 
BIN 10111010, BIN 10010010.BIN 00010000, BIN 01111100 
60 LET w=-21 

70 BORDER 0: PAPER 0: INK 6: CLS 
80 LET 1=16 
90 LET r=20 

100 PRINT AT 21,0; "■^™****^«!>'>*o**«i^»**" 

no IF INKEYt=''l" THEN LET r=r-l 

120 IF INKEY*="0‘' THEN LET r=r + l 

130 LET a=(RND»4)-2 

140 LET 1=1+SGN a 
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150 LET w=w+l 

160 POKE 23692,0 

170 IF 1>=19 THEN LET 1=1,9 

180 IF 1<=1 THEN LET 1=1 

190 PRINT AT 21,1; 

LOO IF RND<.1 THEN PRINT AT 21 , 1 +3; "•*1 O*- ft/) : 

LIO IF RND<.2 THEN PRINT AT 21 , 1 +5; " n ft*- nS*- ft 
pO*' " : LET w=w+2 
220 PRINT 

230 IF POINT <r»8+4, 172)=1 THEN 60 TO 260 
240 INK 7! PRINT AT 0, r ; " '•TO*' ft" : INK 6 
250 60 TO 110 

260 INK 6: FLASH 1: PRINT AT 0, r ; " ■<p2'' ft ■*p<.> ’•p/'- " 
PRINT w;"‘>poena"! INK 6: BEEP .5,-10: BEEP . 
16 

270 PAUSE 0: INPUT "Ponovo* (d/n) " , a*: IF a*<>"d" 
280 60 TO 60 


LET w=w+4 
«■ ^pO^ <p7* 'IZ'- * 


! FLASH 0: 
5,-32: BEEP .5, 

THEN STOP 
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Nov herkulovski zadatak: s vrha ekrana treba oboriti sve 
zvezde. Pucanje je prilieno neobidno. Zamislite da sa svake 
strane sbartuje po jedan automobil. Kad 5e sudare, rezervni 
todak odleti vertikalno u vazduh i obori zvezdu 5 neba. Lukava 
igra, nema ^ta ! Pritiskom na taster Z pokrenete levi, a 
Pi^itiskom na taster M desni automobil. U igri dete proditati da 
obarate zvezde, ali to zahteva mnogo ma^te. 

Zanimljivo je kako program dita tastaturu. Uvek u obzir uzima 
samo taster koji je vadan za igru- Ako je automobil pokrenut, 
program u tom krugu viSe ne mari za taj taster. Karambol 
kontroli^e u 250- redu, a prilikom pogotka u 70, redu bri4e 
zvezdu. 

10 CLS : LET hsc=50: LET b$="Spectrum'' 

20 GO SUB 560 

30 DATA . 15,7, . 15,7, . 15, 7, . 9, 0, . 9, 7, . 15,5, . 15,4, . 15,2, .9, 12, . 

45,7, . 15,5, . 15,4, , 15,2, ,9, 12, .45,7, . 15,5, . 15,4, .15,5,1,2 
40 RESTORE 30: FOR n=l TO 19: READ c,d: BEEP c:,d: NEXT n 
50 CLS 

60 PRINT AT 0,0; "*»***»**»****»**'' 4-^ 

70 PRINT AT 21. ay; INK 1;"*" 

80 PRINT AT 21, by; INK 3;"*" 

90 IF a=0 THEN GO SUB 140 
100 IF b=0 THEN GO SUB 160 
110 IF a=l THEN GO SUB 180 
120 IF b=l THEN GO SUB 210 
130 GO TO 90 

140 IF INKEY$="z'' OR INKEY*="2" THEN LET a=l 
150 .RETURN 

160 IF INKEV$=''m'' OR INKEY$=''M'' THEN LET b=l 
170 RETURN 

180 IF ayOby THEN PRINT AT 21, ay; INK I;"**": LET ay=ay+l 
190 IF ay=by THEN GO TO 240 
200 RETURN 

210 IF byOay THEN LET by=by-l: PRINT AT 21, by; INK 3;"*'>" 

220 IF by=ay THEN GO TO 240 
230 RETURN 
240 LET s=ay 

250 IF SCREENS (0,5)="*" THEN LET beep=l 
260 FOR n=20 TO o'STEP -1 

270 PRINT AT n,s; INK 4;"C": PRINT AT n+l,s;’'*" 

280 BEEP .02,50-(2»n) 

290 NEXT n 

300 IF beep=l THEN PRINT AT 0,s; INK 2; "5": BEEP .05,24 
310 PRINT AT 0,s;"<>" 

320 LET 5C=SC+1: LET a=0: LET b=0: LET beep=0: LET ay=0: LET 
by=31 

330 FOR n=0 TO 31 

340 IF SCREENS (0,n)="*" THEN 60 TO 70 
350 NEXT n 
360 CLS 
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'0 PRINT AT 8,0; INK 2; PAPER 7; BRI6HT 1; INVERSE 1 ; “BRAVO !" ’ 
"Zavrsio*si ''‘nakon' “ ; sc ; "''’pucn jeva. “ 

■ SO PRINT AT 12,8; INK 4; "REKORD: h sc 

'.90 PRINT AT 13,8; INK 3;b« 

400 IF 5c<h5c THEN 60 TO 420 
410 60 TO 460 

420 INPUT INK 0; PAPER 7; FLASH 1 ; ''Tvoje*i me?" ; b$ 

430 IF LEN b$>15 THEN GO TO 420 
440 LET hsc=5c 

450 PRINT AT 12,17; INK 4; hsc AT 13,8; INK 3; b$; " 

460 PRINT AT 20,3; INK 1; PARER 6; FLASH 1 ; " Zel i s*! i'^ponovo?!’ ( 
d/n ) " 

470 INPUT a$ 

480 IF a*="n‘' OR a$="N'' THEN STOP 
490 PRINT AT 20, 0; 

500 GO SUB 520 
510 GO TO 30 

520 LET sc=0: LET beep=0 
530 LET ay=0: LET by=31 
540 LET a=0: LET b=0 
550 RETURN 

560 PRINT AT 0,0; INK 0; PAPER 5 ; "***<>«--!>*4k:-4*hIT-STARw'«-4wv-4<->4^ 

570 PRINT ’ ’ ’ “Tvoj*cadatak*jeSda*oboris*sve*<'*,ve2de*s''’vrha''> 
ekrana." 

580 PRINT ’ "Oborices*ih*5a*zve2dama, *t;Dje'>'4*ima5*u*donjem'' 

1 e vom* i ■■■ d esn om***<>ug 1 u . “ 

590 PRINT ” INK 2; “Gumi ce: 

600 PRINT ’ INK l;''**<-i>«Z-startovan.ie*leve*zvezde*<>:>-->->»‘>M- 
startovan je''desne*zvezde'' 

610 GO SUB 670 
620 GO SUB 520 

630 PRINT AT 21,3; INK 1; PAPER 6; FLASH 1 ; "Pri ti sni *bi 1 o“'kojL|!> 
gumi CLi" 

640 PAUSE 0 

650 PRINT AT 21 , 0; "*-i-**<'!>*»***'i«**»'>*--*44>* 

660 RETURN 

670 DATA "c", 0,24, 24, 24, 24, 24, 24,0 
630 RESTORE 670) 

690 FOR F=1 TO 2 
700 READ e* 

710 FOR n=0 TO 7 
720 READ g 
730 POKE USR e$+n,g 
740 NEXT n 
750 NEXT f 

760 DATA “b", 153,66,36, 129, 129,36,66, 153 
770 RETURN 
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Naziv arkadne igre rekao je sve. Nepri jatel jskim raketama 
lansiranim 12 vasione suprotstavl ja se heroj pomotu tastera 1 - 

2 — dole i O — vatra. 


P O G O C I ?:■ R o T X <J N i: K Fl 



F' O E N R 


1 0*REM<’ “Obrana " 

20 FOR n=0 TO 7 
30 READ data 
40 POKE USR "t"+n,data 
50 NEXT n 

60 LET w=0! LET v=0 
70 BORDER 0: PAPER 0: INK 3: CLS 
80 ,LET i = l: LET q=l 
90 FOR a=l TO 31 
100 PRINT "T"; 
no PAUSE 3 

120 PRINT CHR$ 8 ;"*";: NEXT a 

130 PRINT AT 1,9; FLASH 1 ; "Uputstva?" ; AT 3,9;"d/n" 

140 INPUT b$: IF b*="''>'' THEN 80 TO 140 
150 IF b$="n" THEN 60 TO 200 
160 BORDER 0: PAPER 0: INK 7 

170 PRINT AT 19,0; INK 6 ; ''brani*jeml ju^od^napada*** 

nepri jatel j ski h*raket a**********! ansi rani h*i s^’kozmosa*'' ; AT 
8 , 0 ; FLASH 1; " l*-^^'-'^ 

12,3; ’’ 0<>*<>**<>4 a " 

180 FOR n=-40 TO 30: BEEP 0.1, n: BEEP 0.01,n-10: NEXT n 
190 CLS 

200 BORDER 0: PAPER 0: INK 7: CLS 
210 PRINT AT 3,0; INK 2; 

16,0; INK 

220 PRINT AT 0,0; INK 2; "POSOCI OPROTIVNIKA" ; AT 19,0; INK 6 - "<> 
POENA" ’ 

230 BORDER 0: PAPER 0: INK 7 
240 LET K=10: LET y=0: LET z=0 
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. bO LET a=8: LET b=92: LET c=100 
J60 LET e=INT (RNDi|:ll+4) 

J/O FOR p=INT (RND)»20+10) TO 0 STEP -1 
J80 PRINT AT BEEP 0.0001,0: PRINT AT 

090 PLOT a , b : PLOT I NVERSE 1 ; a , b 
-.00 LET a$=INKEYt 

TIO IF a*="l'' AND x >4 THEN LET x=x-l 
:20 IF a*=''l" AND b!:i36 THEN LET b=b+B 
:30 IF a«="2" AND x<17 THEN LET x=x+l 
:40 IF a*="2" AND b>36 THEN LET b=b-8 
-50 LET u=150 

:.60 IF a$="0'' THEN DRAW a+u,0: PLOT a.b: DRAW INVERSE Ija+UjO 
170 IF e=x AND a$=“0" THEN BO TO 430 
380 IF p<=3 THEN GO TO 500 

390 PRINT AT e,p! INK 4;"r": BEEP 0.01,0001.05: PRINT AT e,p;’‘o 

400 NEXT p 
410 60 TO 260 

420 DATA 0,1,30,255,30,1,0,0 

430 PRINT AT e,p; INK 3i"*": BEEP 0.02,n-12: PRINT AT e,p;"0" 
440 NEXT n 

450 FOR a=0 TO 5: FOR n=0 TO 30 STEP 6: BEEP 0.01,n: NEXT n: 
NEXT a 

460 PRINT AT 21, q; INK 6i''r": LET q=q+3 
470 LET w=w+l: IF w=10 THEN 60 TO 490 
480 60 TO 260 

490 PRINT AT 10,5; INK 6; ”raketB*su*Lini stene" : PAUSE 100: 

PRINT AT 14,0; FLASH 1 ; "X»****)»CESTITAM !!*»*»***" : BEEP 0. 
1,20: BEEP 0.1,17: BEEP 2.13: BEEP 0.2,13: BEEP 0.1,13: 

BEEP 0.1,15: BEEP 0.1,17: BEEP 0.1,18: BEEP 0.2,20: BEEP 0. 
2,20: BEEP 0.2,20: BEEP 0.2,17: FOR a=0 TO 400: NEXT a: 

RUN 

500 FOR a=0 TO 2: FOR n=30 TO 0 STEP -3: BEEP 0.01,n: NEXT n: 
NEXT a 

510 PRINT AT 2,i; INK 2;"r": LET i=i+3 
520 LET v=v+l: IF v=10 THEN 60 TO 540 
530 GO TO 260 

540 PRINT AT 10,5; INK 2; '’RAKETE*SU<>UNISTILE*ZEMLJU": FOR n=0 
TO 400: NEXT n: RUN 
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Dvo je dokaz da dak i kratak program u bejsiku mode da bode 
zanimljiv za igru, narodito ako niste razmaieni razliditim 
uvezenim igrama. 

Kao i obidno, vad vasionski brod naSao se u nevolji; ali da 
nema tedkoda, ne bi bilo ni igara. Problems stvaraju asteroid! 
^oji se bezobrazno pomeraju po ekranu prema gore. Vasionskim 
brodom ih izbegavate kako znate i umete. U najvedem 4kripcu 
pritisnete taster 0 i tako aktivirajmo nekakvu naroditu 
energiju. O njoj u tizici jod niste udili, ali je svakako 
ogranidena: ima samo pet takvih zaStita. 

Sve Sto se zbiva smedteno je izmedu 50. i 400. redov. Redovi 
Dd 400-405. slu±e za ispis najboljeg rezultata odnosno za kraj 
igre. Sav nastavak programa posveden je detinisaju gratidkih 
znakova. Njih ima ditav niz, po^to su i asteroid! razliditih 
oblika. Pogled na vasionu i asteroids koji se pribliiavaju veoma 
je slikovit. 

Zadatak: Probajte da program prepravite tako da vasionski 
brod sam izbegava asteroids. Pa nemate valjda radunar zato da 
sami vodite raduna ba4 o svim sitnicama. 


1 CLEAR : LET e=0: GO TO 2 

2 BORDER li PAPER 1: CLS : INK 7: PRINT AT 0,10; FLASH 1;" 

ASTEREOIDI ! PAUSE 100: PRINT FLASH 0; ” "Pri ti sni *5'>za* 
levo'-ili '*’>**'’**'''8Sza-''de5no. ’ "Pritisni -'O-Oja'* 

unistavanje* 

asteroida"’ ’ “Samo*paz i : otvoja'ST adja-i iria*5amo«5*za5t i tni h* 

□ Klopa’” ■■ "KAKO*DUGO*IZDRZIS!>MEDJU 'OSASTEROIDIMA" : 60 

SUE 9000: PAUSE 0: LET b=0 


10 INK 0: CLS : LET t=0: LET p=5: LET 1=15: LET 11=1: LET f=6 
5o POKE 23692,255: LET 1 =1 + ( INKEY$="8" AND 1<29) - ( INKEY$=''5" 
AND l.?0): IF INKEY$="0" THEN LET f=F-l: IF F >0 THEN PRINT 
AT 8,1; INK 6; "PM": 60 TO 64 
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62 IF INKEY$="0“ THEN LET IF f >0 THEN PRINT AT 8,1; 

INK b-,‘'P!jR" 

64 IF ATTR <B,1+2)=15 OR ATTR (e,l)=15 THEN LET p=p-l 

66 IF ATTR (8, 1+1) =15 THEN LET p=p-2 

67 IF p<l THEN 60 TO 400 

100 PRINT AT 7,11;"*<>!>";AT 21,31;"": PRINT : PRINT AT 7,1; INK 
6;“S"; INVERSE l;p; INVERSE 0;"r": LET t=t + l: LET ll = li4' 
PRINT AT 21,RND*31; INK 7;CHR$ (RND* 1 1+1 44) ; AT 21,RND* 
31;CHR* (RND*1 1+144) : 60 TO 50 

400 FOR n = l TO 3: PRINT AT 6, 1 1 AT 7,11; INK 2; "««« "; AT 

1 i; pflysE 2: PRINT AT 6,11; INK 6;"0<1U";AT 7,11;"W 

N";AT PAUSE 2: NEXT n: FOR n=6 TO 8: PRINT AT 

n, II; "****": NEXT n 

402 CLS : IF b<t-13 THEN LET b=t-13 

403 INK 7: IF e<b THEN LET e=b: PRINT AT 6, 0; "P0STI6A0*SI*N0V<> 
NAJBOLJ I ~RE2ULT AT" ’ ’ "Upi si «ini ci ale*svojega' j msna" : 
LET n*="": FOR n=l TO 2: PAUSE 0: LET n$=n*+INKEY$+" . " : 
NEXT n: CLS 

405 PRINT ; "Rezul tat=" ; t-13, "Najbol j 1 

rezul tat = " ; b ' ' "Najbol ji *Qd‘'''svih=" ; : PRINT FLASH 1 ; e; " ■-■od'-" 
;n$’’: FDR n=l TO 150: NEXT n: PRINT FLASH 0;" Fritisni 
p''' za''“novu*i gru" ’ ’ "* i<>*»<><>'v'<> :>'>-!>s*za<’SAVE" ’ ’ ■■■ ■■■ - '■ ■■■ - * 

za^kraj"; PAUSE 0: 60 TO (5 AND INKEY$="p " ) + (430 AND 
INKEY$="s") + (450 AND INKEY$="-f") 


430 

SAVE 

"Asteroids" LINE 1 

450 

PRINT 


' ’ "*«HvaIa‘!za*igru,*dQ'vidjenja 

460 

60 TO 

460 

■'i >20 

RESTORE 

9070: FOR m=l TO 21 

'2()30 

READ p* 


, ( i40 

FOR n 

=0 

TO 7 

' '■< '50 

READ 

a: 

POKE USR p$+n,a 

>60 

NEXT 

n; 

NEXT m: RETURN 

'> '65 

BORDER 1 

1: PAPER 1: CLS : INK 7: 60 TO 5 

■' >70 

DATA 

"a' 

,62,33,255, 129, 129,65,37,26 

'•’',>80 

DATA 

"b' 

,112, 148, 138,65, 129, 129,94,32 

'1)90 

DATA 

"o' 

, 0,0,24,36,36,56,0,0 

/ 1 (jO 

DATA 

"d' 

,0,0,48,40,48,32,0,0 

■■ 1 1 0 

DATA 

"e’ 

, 0,24, 40,40, 16,0,0, 0 

' ■ 1 20 

DATA 

"■f ' 

, 112, 136, 136,68,40,48,0,0 

■■ 1 30 

DATA 

"g' 

,0,0,0,56,44,6,0,0 

' ' 1 40 

DATA 

"h' 

,0,0,30, 18,34,84,232,0 

•150 

DATA 

" i ' 

,94, 177, 130,228,34,65,66,60 

' ■■ 1 60 

DATA 

" J 

,0,62,65,66,34, 17, 14,0 

1 70 

DATA 

"k' 

,96, 144, 144,116, 10,49,65, 126 

• 1 SO 

DATA 

"1 

,62,65,242,9,247, 136, 144,96 

'190 

DATA 

"m' 

, 145,82, 16,7,244,8,74, 137 

'• ,00 

DATA 

"n 

, 100,24, 198,0,222,0,24, 102 

•'.'10 

DATA 

"o‘ 

,0,4,34, 18,1,68,50,9 

• .'20 

DATA 

"p' 

,9,50,68, 1, 18,34,4,0 

. ■ SO 

DATA 

"q' 

,0,8, 170,42,73,65, 137, 137 

■■,'40 

DATA 

"r ' 

, 144,76,34, 128,72,68,32,0 

.'50 

DATA 

"s' 

,0,3, 15, 15, 120,200,255,56 

. '60 

DATA 

"f 

,0,192,240,240,30,19,255,28 

.70 

DATA 

"u' 

,0,32,68,72, 128,36,76, 144 
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MV/SBIC:: C5#=*L_<=^KT I K<=| 


4438 

Cilj igre je klasidan: s puta treba ukloniti ito viSe 
agresora sa strane planete. Svoj vasionski brod pomeratE 
tasterima za kursor (5—8). Posebno je opasno to Sto s neba 
padaju klade. Ako niste dovoljno spretni, nio2e neka od njih da 
oni^ti vasionski brod ili malog zelenog pre nego 4to uspete da 
ga spasete. 


V?' 

JK SI 



P O E N I : 0 

10 PRINT AT 7,2;" S* A»L4'A*K*T* I *K<> A* " ; AT 1 9 , 9 ; " z a*Mo j *Mi kr o* ! I ! 

20 PAUSE 150 
30 LET a=l: LET d=0 

40 BORDER 1: INK 7: PAPER 0: RESTORE : CLS 
50 FOR p=l TO 10 
60 READ A$ 

70 F0R'n=0 TO 7: READ b: POKE USR A$+n,b: NEXT n 
80 NEXT p 
90 LET 0=32 
100 FOR z=0 TO 31 

110 PRINT AT 20, z; INK l;"f"|AT 0,z; INK 2;"-" 

120 NEXT z 

130 PRINT AT 15,0; I" 

140 PRINT AT 18,0; 

150 PRINT AT 5,29; INK 5; "1^" 

160 PRINT AT 21,22; "P0ENI:*";d 
170 FOR i=3 TO 18 STEP 2 
180 PRINT AT i,i; INK 5;"W" 

190 NEXT i 
200 LET j=10 

210 FOR i=2 TO 18 STEP 2 
220 PRINT AT i.j; INK 2; 

230 LET j=j+2 
240 NEXT i 
250 LET j=20 

260 FOR 1=3 TO 14 STEP 2 
270 PRINT AT i,j; INK 1;"//" 
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liO LET j=j+2 
VO NEXT i 

no IF a=9 THEN LET b=l: FDR i=0 TO 70: BEEP .007,20: NEXT i: 
CLS : PAPER 7: INK 0: FOR i=0 TO 31 STEP 2: PRINT AT 5, i ; " 

AS": NEXT i: PRINT AT 10,5; " p-s-O^B'EODOrs-OOoSI '';AT 

15,6; "0SV0JI0’>SI:'>'';D+10»o; "*POENA"; AT 20,5; “oZel i s>l i * 
pDnovo?'''d/n": 60 TO 590 
■10 PRINT AT 16,10;"J";AT 17, 10; LET f=5 
■■20 PRINT AT 14,1; INK 7; FLASH 1;"6'' 

'30 LET ID=0 
40 LET c=INT <RND»27) 

■■50 FOR x=2 TO 19 
'60 LET m=m+l 

■■70 IF m>=2 THEN 60 TO 390 
■SO LET q=4: LET w=29 

■ 90 IF INK;EY*=''5" and w>l THEN LET w=w-l: PRINT AT q,w+l;"«0" 
400 IF INKEY$="8" AND w<=29 THEN LET w=w+l: PRINT AT q, w-1 ; 

410 IF INKEYt="6“ THEN LET q=q+l: PRINT AT q-1 , w; 

420 IF INKEY$="7'' AND q>l THEN LET q=q-l: PRINT AT q-H , w; 

430 IF q=19 THEN LET b=l: 60 TO 580 
440 IF q=5 AND w>27 THEN LET q=4 
450 IF q = 15 AND will THEN LET q=14 
460 IF q=18 AND w<12 THEN LET q=17 

470 IF F=5 AND w=10 AND q=16 OR 4=5 AND q=17 AND w=10 OR 4=2 
AND q=17 AND w=10 OR 4=2 AND q=16 AND w=10 THEN LET w=ll 
480 IF 4=5 AND q=14 AND w=l THEN PRINT AT 4,29; FLASH 1;''6": 

LET 4=2: 60 SUB 620 

490 IF 4=2 AND q=4 AND w=29 OR 4=2 AND q=4 AND w+l=29 THEN 

PRINT AT 17, 10; "0";AT 16,10;"*";AT 16,11;''6C": LET 4 = 1: 60 
SUB 620 

500 IF q=17 AND w=7 THEN LET d=d+100: PRINT AT 16, 1 1 ; "*0" ; AT 
16, 10; "J"; AT 17, 10; "A"' ; AT x-1 , c; ; AT 21,29;d;AT 17, a; 

INK 1; FLASH 1;''/5S": LET a=a+2: FDR 1 = 1 TO 30: BEEP .05,1: 
NEXT 1: 60 TO 300 

510 IF 4 = 1 AND q=16 AND wUT. THEN LET q=17 
520 IF 4=1 AND w=9 AND q=17 THEN LET w=8 
5-30 LET y=w/2: LET t=(w+l)/2 

540 IF w=q AND w>2 AND yOINT y DR w+l=q AND w+l>2 AND tOINT 
t THEN 60 TO 580 

550 IF w=q+B AND y=INT y OR w+l=q+8 AND t=INT t THEN 60 TO 580 
560 IF w=q + 16 AND q>l AND yOINT y OR w-l=q+16 AND q>l AND 
tOINT t AND w+l-rxl THEN 60 TO 580 
570 60 TO 640 

580 LET b=l: FOR 1=20 TO 1 STEP -1: BEEP .05,1: NEXT 1: CLS : 

PAPER 7: INK C!: PRINT AT 10, 3; "NA-^ZALOST NI JE';'>TI*USPELD" 

; AT 15,6; "OSVOJ I0'»SI : -S'" ; D; "<>P0ENA"; AT 20,5; "Zel 1 s-^l I'S' 
ponovo?*d/n” 

590 IF INKEY$="d" AND b=l THEN 60 TO 30 
600 IF INKEY$="n" AND b=l THEN STOP 
610 60 TO 590 

620 LET d=d+25: FDR 1=25 TO 30: BEEP .003,1: NEXT 1: PRINT AT 
21,29;d 
630 RETURN 

640 PRINT AT q,w; INK 4; "AS" 

650 IF x = 18 THEN PRINT AT x,c;"<-'" 

660 IF x = 15 AND c:< = 12 THEN PRINT AT 14, c; "O": 60 TO 800 

akcione igre 27 


670 IF k = 14 and c = l THEN LET PRINT AT x.cj"*": 60 TO 

BOO 

680 PRINT AT x,c;"5" 

690 IF x=l THEN SO TO 710 
700 PRINT AT 

710 IF x=19 THEN PRINT AT 19,c;“*" 

720 LET n=c/2 

730 IF x=c-l AND c>2 AND nOINT n THEN BO TO 770 
740 IF c=x+9 AND n=INT n THEN GO TO 770 
750 IF c=;; + lB AND n = INT n THEN BO TO 770 
760 GO TO 780 

770 PRINT AT x,c LET x=x+2 

780 IF x=q AND c=w OR x=q AND c=w+l THEN SO TO 580 
790 NEXT X 

800 LET 0=0-1: PRINT AT 0,d;"*": BEEP .01,10 

810 IF 0=0 THEN BEEP .8,20: BEEP .8,20: BEEP .8,20: GO TO 580 


820 

GO TO 

3 

40 

S30 

DATA 

"A 

",1,3,63, 127,212, 127, 19,32 

840 

DATA 

"D 

",0,40, 16, 16, 16,56, 16,0 

S50 

DATA 

■'S 

",128, 192,252,254,43,254,200,4 

360 

DATA 

■'F' 

",0,24,60, 102, 195,0,0,0 

S70 

DATA 

■■G 

" , 60,66,66,60, 24,24,28, 30 

.930 

DATA 


",0, 153,231, 90, 102,36,90,219 

890 

DATA 


" , 15, 25 , 15,6,6,6,6,6 

900 

DATA 

■'K' 

', 6, 6, 6, 6, 6, 6, 3, 1 

910 

DATA 

"L 

",0,64,224,191,191,224,64,0 

920 

DATA 

"C 

',0,1,3,254,252,0,0,0 
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I tN4V^#=i2: X l_J 3:0 


3202 

Ovde je red o igri veoma slidnoj igre imure, samo ^to je 
<)rafidka obrada mnogo privladnija. Autor Je nastojao da stvori 
lekakav trodi menz i onal ni e+ekt, taka da igra na prvi pogled nije 
in^ta lo^ijaa od neke kupljene arkadne igre u maSinskom jeziku. 
’rtve su opet potpuno nevini agresori iz vasione koji ni4ta 
r davo ne slutedi jure po nodnom nebu. Uloga borca za slobodu 
na^e drage planete opet je u na^im rukama- Tasterima za 
pomeranje kursora (5,6,7 i 8) treba ni^an postaviti tako da 
m^ani na napadada iz vasione. 

Prvo Je ova igra bila napravljena tako da se posle uspelog 
ni^anjenja pritiskao taster za vatru ("fire"). Rezultati koje su 
postigli dlanovi na^e redakcije bili su tako lo^i, da smo 
odludili ugraditi automatsko paljenje ("auto tire"). Laserski 
top obavi svoj zadatak dim napadada dobijete na mu^icu. 

Program podinje sa dva skoka u potprogram. Skok u 5000 
prodita oblik napadada, dakle generi^e gra-fidki znak, a skok u 
‘'iOOO. ispi^e uputstva- Posle toga se, kao i obidno, nacrta 
pozadina- Glavna petlja programa Je u redovima 125—999- Izmedu 
redova 125- i 128- vizir se izbri^e, izmedu 130- i 160- odita se 
tastatura, a u 180- bri^e se vasionski napadad- U redovima 
200—230- crta se novi poloiaj vizira zavisno od pritisnutih 
tastera- U narednim redovima odluduje se o tome da li ste 
iiapadada pogodili i da li ste postigli dovoljno uspeha. 

Neki od potprograma veoma su zanimljivi- U 1000- redu Je 
potprogram koJi se izvr^i kad pogodimo napadada. L) 2000- redu 
sabiru se ateriranja napadada na zemlju. Kad nam promakne viSe 
od 10, navodno podignu bazu. To znadi da Je za nas kraj igre i 
kraj razonode- 

Zadatak: redovi izmedu 130- i 160- nisu ba4 prikladni za naSe 
ditaoce, po^to se moie dogoditi da zbog brzog pritiskanja 
tastera 8 i 7 radunar prihvati oba. U petlji 20 taj problem 
reSava se npr- instrukcijom 129 LET aS=INKEYt: IF a*=8: IF a$=5 
ltd- Razume se da sve to mo±e da se re^i i Jednom Jedinom 
logidkom instrukci Jom- Verovatno vam Je poznato delovanje 
logidkih Tunkcija- Ako npr- napi^ete PRINT 1=2, radunar de 
napisati nulu, po%to Je tvrdnja netadna; ako napi^ete PRINT 
100=100 (100= 100, 1=1), radunar de kao dokaz da Je tvrdnja 
tadna napisati Jedinicu- Umesto instrukci je 130 mogli biste da 
napi^ete LET 1=1+ ( INKEYS="8" ) AND 1<129. U arkadnim igrama takve 

promene dobrodoSle, Jer se izvode mnogo brie nego instrukcija 

IF- 

Za one diji rezultati budu lo4i, evo Jedan savet u vezi s 
programom. Napi^ite program kojim de vizir sam nadi napadada. 
Ako Je mogudno, program ne bi trebalo da bude takav da napadad 
sam skade u vizir, nego da se vizir diJi poloiaj odreduju 
koordinate k i 1 sam pomera prema koordinatama bednog napadada 
iz vasione, diji Je poloiaj oznaden promenl J i vi ma min- Kao i 
kod drugih igara, 1 ovde bi se umesto promenljivih koJe oznaduju 
poloiaj mogla da se upotrebi memorija ekrana- Upotrebom tunkcija 
ATTR ili STR* mogao bi takode da se kontroli^e poloiaj napadada 
i vizira- 
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RliiliZUL-T R T : Q 



1 

1 








3 GO SUB 5000 

4 GO SUB 4000 

5 LET 1=16: LET k=ll: LET po5=10 

6 LET m=3! LET n=lNT (RND*26)+2 

8 LET 5CDre=0 

9 LET LAN=0 

10 PLOT 0,0: DRAW 97,50 
20 PLOT 255,0: DRAW -97,50 
30 PLOT 137,50: DRAW 50,-50 
40 PLOT 117,50: DRAW -50,-50 
50 PLOT 70j50: DRAW -70,-15 
60 PLOT 185,50: DRAW 70,-15 
70 PLOT 0,50: DRAW 255.0 
80 PLOT 127,50: DRAW 0,-50 
90 PLOT 0,40: DRAW 255,0 
100 PLOT 0,15: DRAW 255,0 
no PLOT 0,14: DRAW 255,0 

120 INK 7: PLOT 0,0: DRAW 0,175: DRAW 255,0: DRAW 0,-175: DRAW 
—255, 0 

125 PRINT AT k,l-l;"<"' 

126 PRINT AT k,l+l; 

127 PRINT AT k-l,li "-s-" 

128 PRINT AT k+l,l;"0" 

130 IF INKEYf="S" AND 1<29 THEN LET 1=1+1 
140 IF INKEY$="5" AND 1 >2 THEN LET 1=1-1 
150 IF INKEY*="6" AND k<13 THEN LET k=k+l 
160 IF INKEY$=’'7" AND k>2 THEN LET k=k-l 
ISO PRINT AT INT m, INT nj"*" 

200 PRINT AT k,l-l;"-" 

210 PRINT AT k-1,1;" I" 

220 PRINT AT k+1.1;" I" 

230 PRINT AT k,l + l;''-'' 

240 IF k=INT m AND 1=1NT n THEN FDR t=l TO 3: BEEP .02,50; 

NEXT t: GO SUB 1000 

245 LET n=n+INT (RND»3)-1 

246 IF n<3 THEN LET n=n+l 

247 IF n>29 THEN LET n=n-l 

248 BEEP 0.005, (RND*35)+15 
250 LET m=m+0.2 

252 IF 5core>1000 THEN LET m=m+0.2: IF m>2000 THEN LET m=ni+0.2 


30 akcione igre 



255 IF n<l OR n>31 THEN PLOT 0,0: DRAW 0,175: DRAW 255,0: DRAW 
0,-175: DRAW -255,0 
260 IF /Tills THEN GO SUB 2000 

300 INK INT (RND»7)+2: PRINT AT INT m, INT n;"P": INK 7 
310 PRINT AT 1, 1; "REZULTAT:*"; score; "•>" 

999 BO TO 125 

1020 PRINT AT k,l;"P": PRINT ; OVER 1;AT (;,1;'V" 

1030 FOR h=50 TO 45 STEP -0.5: BEEP 0.01,h: NEXT h 

1040 PRINT AT k,l 

1050 LET m=3: LET n=lNT (RND*26)+2 

1060 LET scDre=5CDre+100 

1080 RETURN 

2000 LET lan=lan+l 

2010 IF Ian >10 THEN 60 TO 7000 

2015 LET /ii=3: LET n = INT (RND»26)+2 

2020 RETURN 

3005 FOR n=0 TO 100: BEEP 0.1,40: NEXT n 
4000 PAPER 1: INK 7: BORDER 1: CLS 
4010 PRINT AT 0,10; FLASH 1 ; "NAPADACI" ; FLASH 0 
4020 INK 6: PRINT : PRINT "Obrani*zeml ju*pred*napadacima,^'’*koji'> 
na^zeml ji<>zele''!-da*pD5tave<*-^ba2u. ": PRINT : PRINT 
4030 INK 7: PRINT : PRINT : PRINT "OOSOLEVO"": PRINT : PRINT '”>* 
8*DESN0'': PRINT : PRINT "**6<'D0LE": PRINT : PRINT "**7* 
GORE": PRINT : PRINT "<>*0*VATRA" 

4040 PRINT AT 21,1; FLASH 1 ; ''Mnogo<'5rece ": FLASH 0 

4045 PAUSE 9999 

4050 BORDER 0: PAPER 0: INK 6: CLS : FOR n=0 TO 50: BEEP 0.005, ( 
RND*35)+15: INK INT (RND»7)+1: PLOT INT (RND*250) +5, INT ( 
RND»120)+50: NEXT n: INK 4: GO TO 5 
5000 DATA BIN 0,BIN 00011000, BIN 01111110, BIN 11011011, BIN 
11111111, BIN 01100110, BIN 0,BIN 0 
5010 FOR N=0 TO 7: READ J 
5030 POKE USR "p"+n,j: NEXT n 
5040 RETURN 

7000 BEEP 0.7,1: BEEP 0.5,1: BEEP 1,6 

7020 PRINT AT 2, 3; "NAPADACI*SU*POSTAVILI*BAZU" 

7025 PAUSE 100 

7030 INK INT 2: PRINT AT 12, 10; 

7035 BEEP 0.5,5 

7040 PRINT AT 13,9; "JMN" 

7045 BEEP 0.5,4 

7050 PRINT AT 14,9; "I ■ I" 

7055 BEEP 0.5,3 

7060 PRINT AT 15, 9; ""I" 

7065 BEEP 0.5,2 
7070 PRINT AT 16, 9; 

7075 BEEP 0.5,1 

7076 INK 6 

7080 PRINT AT 8, 1 ; "ZEMLJA*JE'>PRESLA'>U*RUKE<'***<’*«-*»NAPADACA" 

7110 PRINT AT 18, 1; "ENTER*’ RUN’ '>NATRAG*UoVREME'>***->*BDRBE*ZA<> 
OCUVANJE*ZEMLJE*" 

7140 FLASH 1: PRINT AT 5, 1 ; "SAKUPID*SI*" ; score; "*POENA" : FLASH 
0 
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MIS MER V I INI 


3565 

Ova arkadna igra isvedena je iz omiljenog radunarskog 
programa Probijanje zida. Treba kontrolisati lansirnu rampu i 
hvatati mi^a Mervina koji putuje vasionom i trail sir. Na ledima 
nosi raketu u kojoj ima samo toliko goriva da moie predi put do 
vrha ekrana i nazad. Na dnu ga zaustavite i pomognete mu da 
napuni rezervoare. Aka vam ne uspe, ostadete bez jednog Mervina. 
Takvu gre^ku moiete da napravite samo pet puta. 



(■niEllWi 


10 BORDER 0: PAPER 0: INK 5: CL8 
20*REJ1®»**data*** i 

30 FOR n=USR "a" TO USR "e’‘+6i' READ k: POKE n,k! NEXT n 
40 SO SUB 620: LET hi=0: LET c=0: LET s=0: LET a=l: LET b=l 

50*REM<>**»)»*SCREEN$»*)(t** 

60 BORDER 0: PAPER 0: INK 5: CLS 
70 LET s=0: LET q=5: LET c=0 
80 PLOT 8,168: DRAW 239,0 
90 PLOT 8,167: DRAW INK 5:0,-167 
100 PLOT 247,167: DRAW INK 5:0,-167 
110 FOR n=2 TO 8 

120 PRINT AT n,2; INK 6; BRIGHT 1;" 

NEXT n 

130*REM** *gl , program* * 

140 LET n=15: LET x=20: LET y=INT (RND*10+5): LET dx=>;: LET 
dy=y 

150 IF y>28 OR y<3 THEN 60 SUE 330 
160 IF k< 2 THEN LET a=-a 

170 IF SCREENt (x, >■)<>"■•>" THEN BO SUB 270 
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180 IF i;>20 AND (y=n + l OR y=n+2 OR y=n+3) THEN LET a=-a: BEEP 
008,10: LET y=y+l 

190 PRINT AT dXjdy; "*‘';AT K,y;"B": LET d!;=x: LET dy=y 
200 PRINT AT 21, n; INK 3; BRIGHT 1;"*CC£*" 

210 LET n=n+(INKEY$=''0" AND n<=2£i) - ( INKEY$=" 1 " AND n>0) 

220 IF INKEY$=''9'‘ THEN PAUSE 0 
230 LET x=>;~a: LET y=y+b 
240 IF k>21 then GO TO 360 

250 PRINT AT 0, 3; "T. =" ; s; AT 0, 13; "NR=" ; hi ; AT 0, 22; “MISEVI=*" ; q 
260 GO TO 15(j 
270 BEEP .008,20 

280 PRINT AT dx , dy AT x,y; INK 5; "S" 

290 IF level=2 THEN LET a=-l 

300 IF x<ll THEN LET s=5+l: LET c=c+l 

310 IF c=loop THEN 60 TO 600 

320 RETURN 

330 BEEP .008,30 

340 LET b=l-2*<y>2S Of y<2) 

350 RETURN 

360 PRINT AT 0, 22; "MISEVI=*’' ; q 
370 LET q=q-l 
380 PAUSE, 2 

390 FOR u=0 TO 6: FOR d=6 TO 0 STEP -1: BEEP .009,u: BEEP .009 
d: NEXT d: NEXT u 
400 IF qOO THEN 60 TO 470 

4 1 0*REh* * * no va* i gr a * * 

420 IF q<l THEN FOR 2=1 TO 6: PRINT AT 10,11; INK 5; FLASH 1;" 
»KRAJ»»'';AT 12, 7; "STEPEN*TEZINE*l-2<>*" : FOR d=40 TO 0 STEP 
-5: BEEP .009,d: NEXf d: NEXT z: LET a=l! LET b=l 
430 IF INKEY$=‘'r' THEN LET loop=196: LET level = l: CLS : 60 TO 
60 

440 IF INKEY$='‘2“ THEN LET lDOp=I96: LET levGl=2: CLS : GO TO 
60 

450 IF INKEY$<>"" THEN 60 TO 430 
460 GO TO 430 
470 LET ni=RND 

480 PRINT AT 21 , 0; ‘'**«*«*s«<>!>***»*«* 

490 LET a=l 

500 LET b=-b# (m<0. 5) +b* (m>=0. 5) 

510 60 TO 140 

520*REM*»*data''gra-f i kaJ 4 
530 DATA 24,60,126,247,255,239,126,60 
540 DATA 195,219,126,90,126,102,126,60 
550 DATA 96,99,231,255,255,231,96,96 
560 DATA 126,255,231,169,189,231,255,36 
570 DATA 6,198,231,255,255,231,6,6 

590"-^REN'^*4nov^'ekran<:* 

600 LET a=l: LET b=l: LET c=0: FOR j=l TO 40: PRINT AT 11,10; 
FLASH 1; INK RND»6; '‘NOV*EKRAN*" : BEEP .008, i: NEXT j: CLS 
60 TO 80 

6105REM**uputstva** 
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620 PRINT' BRIGHT 1; INK 6;" MERVINS-NA-SMESECU— " 

630 PRINT BRIGHT 1; INK 6; "KONTROLISESiLANSIRNU*RAMPU. OKAD* 
UHVAT I S<MERV I NA , *OSVQJ I SopOEN . -:*P0ENS0SV0 J I S<> I S AKOOMERV I N* 
<?<><>**POJEDE'i’MALO<>SIRA. " 

640 INK 4 

650 PRINT BRIGHT 1; ’ “SUSTINA!'IGRE'S JE<>DASP0M0GNES!>****MERVINU* 
DA*P0 J EDE<>ST0*V I SE^S I R A<'S A<>MESECA . *MERV I N* I MA*NA ><> »***<> » 
LEDJ IMA-s-DVESRAKETE, OKOJE >MUO***5POMAZU*DA<>LETI . *RAKETE* 
IMAJUO'XX'DOVOLJNO^GORIVAOSAHO^ZAOJEDNUOO^VOZNJU.ONA** 
PLATFORM I *'5 MORAS'i * !>*UHV AT I T I *MERy I NA , s-D A * S I «NAPUN 1 0* 
REZERVQAR. " 

660 PR I NT BR I GHT 1 ; " K ADA« OSVG J I S* 1 96 , * I DES'>NA :>DRUGU*PL ANETU . " 
670 POKE 23692,255 

680 PRINT #0; FLASH 1; BRIGHT 1; INK 6; "«>PRITISNI*BILO*KOJU* 
GUMICU**<’«'' 

690 IF INKEY$="“ THEN GO TO 690 

700 IF INKEY$<>"" THEN FLASH 0: GO TO 720 

710 GO TO 690 

720 CLS ! PRINT BRIGHT 1; INK 6; ''GUMICE«ZNACE!**«l=levo** 

<> •:> <> •;> * •:> •:> •:> -;> •:> * •;> •:> •:> <:• <> <> 0 = (j S BH O 

9=pau2 a " 

730 PRINT BRIGHT 1; FLASH 1; INK 4; ■‘■"■=>5£NTER*ZA-^>STEPEN* 
TEZINE<-'l-2^:->" 

740 IF INKEY$="r‘ THEN LET loop=196: LET level=l: RETURN 
750 IF INKEY$="2" THEN LET loDp=i96: LET level=2: RETURN 
760 GO TO 740 
770 SAVE "MISEK" 

780 RUN 


34 akcione igre 


MIS TFt<=kf=' I Sir 


3B50 

□va arkadna igra podsedia na program Kong tirme Ocean. Malo je 
jednostavni ja, ali zato ne gubi ni^ta od svoje uzbudl j i vost i . 
Mi4a — kojim startujemo negde u dnu ekrana — treba prebaciti na 
gornji sprat. MiSitf: de trdati kad pritisnete na tastere z,x, n i 
p. Program je kratak, a zabava nezaboravna. 

Program inici jal izuje promenljive u redovima 90-105. Od 120. 
do 190. reda nalazi se glavna petlja u kojoj se odvija ono 
glavno. Primetidete da se tastatura dita u 120. redu. Redovi od 
130. do 181. sadrie IF instrukcije. Tu se odluduje da li vas je 
pregazio todak, da li imate merdevine da se popnete vide i 
najzad, da li je sir pojeden. Redovi od 200. do 290. crtaju 
teren po kom de vad mid veselo skakutati. Od 300. do 320. reda 
crtaju se todkovi , koji de da vas ometaju. Izmedu 330. i 350. 
reda pitadete se da li ponovo igrati ili ne. Od 500. do 520. reda 
program ispide uputstva. U redovima od 9000. dalje opisani su 
obavezni grafidki znaci: midid, todkovi, merdevine itd. 

Zadatak: podite u prodavnicu i kupite 200 grama sira. 
Pretpostavl jamo da mideve ved imate. 



90 60 TO 9000 

100 POKE 23658,0: BORDER 5: PAPER 7: LET r=0: LET 1=1: LET 5=0: 

LET j=0: LET q=30: LET b=20: LET c=0 
102 60 SUB 500 
105 60 SUB 200 

120 PRINT AT 0,0; "Rezultat: "ssjAT 0, 20; "Stepen: " ; 1 : LET a* 
=INKEY$ 

121 IF b=4 AND c=0 THEN BEEP .1,0: BEEP .1,5: BEEP .2,0: BEEP . 
1,6: LET 1=1+1: LET 5=5+50: PRINT AT b,c;"*": LET b=20: 

FOR 0=1 TO 5: FOR i=l TO 200 STEP 10: PRINT AT 10,0; INK 
INT (i/30) ; "<>VISEoSIRA<>NA<>SLEDECEM*STEPENU!<'": BEEP .01, 

INT (i/5): NEXT i: NEXT o: PRINT AT 10,0,,: 60 TO 105 

123 60 SUB 300 

125 IF a$="" THEN BEEP .01,3: 60 TO 120 

130 IF a$="z" AND cXi THEN LET c=c-l: LET 5=5+10: BEEP .001,20: 

PRINT AT b,c; INK I;"!*'': 60 TO 120 
140 IF AND c<31 THEN LET c=c + l: LET 5=5+10: BEEP .001, 

20: PRINT AT b,c-l; INK 1;"*/,"': 60 TO 120 
150 IF a$="n" AND b=20 AND c=io THEN LET b=16: LET 5 = 5 + 15 : LET 
j=0: PRINT AT 20, 10; "O" ; AT b,c; INK 1;''/!'': 60 TO 120 
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160 IF a$='‘n'’ AND b = 16 AND c=2 THEN LET b = 12: LET ==5+15: LET 
j=0: PRINT AT 16, 2; PRINT AT b,c; INK 1 ; '7.'" : SO TO 120 
170 IF a$="n" AND b=12 AND c=17 THEN LET b=B: LET s=s+15: LET 
.1=0: PRINT AT 12, 17; "i" ; AT b,c; INK 1;'7'": SO TO 120 

180 IF a$="n'' AND b=B AND c=28 THEN LET b=4: LET s=s+15: LET 
j=0: PRINT AT 8,28; INK 1;"*";AT b,c;'7,'": 60 TO 120 

181 IF a$="b'‘ AND c<29 AND j<2 THEN PRINT AT b,c;"*";AT b-l,c; 

INK 3;‘7i“: BEEP .01,2: LET 5=5+20: PRINT AT b-2,c + l; INK 
4;'7;'':AT b-l,c;"*": BEEP .05,35: PRINT AT b-l.c+2; INK 3;" 
A'";AT b-2,c+l; "•5'';AT b,c+2; INK l;'‘ft'";AT b-1 , c+2; : LET 

j=j+l: LET c=c+2: IF q=c-l THEN SO TO 330: SO TO 120 

190 60 TO 120 

200 CLS : FOR w=5 TO 21 STEP 4 
210 PRINT AT w,0; INK INT (w/5) ; " 

220 NEXT w 

225 PRINT AT 4,0; INK 0; PAPER 6; "N" 

250 PRINT INK 2;AT 19, 10; ; AT 18, 10; "7" ; AT 17, 10; "J" 

255 PRINT INK 2; AT 15, 2; "r'; i?T 14, 2; "7 " ; AT 13, 2; " J“ 

260 PRINT INK 2;AT 1 1 , 17; "tf" ; AT -'lO, 17; ”7 " ; AT 9, 17; " J" 

265 PRINT INK 2;AT 7,28; "//";AT 6,28; "7"; AT 5,28; "J" 

290 RETURN 

300 IF r=0 THEN 60 TO 303 

301 PRINT INK 3;AT 20, q; "0*" ; AT 16, q; "O*" ; AT 12, q ; "O*" ; AT 8, 
q;"0*'';AT 4,q;"0*'': 60 TO 304 

303 PRINT INK 0;AT 20, q; ; AT 16, q; ; AT 12, q ; ; AT 8, 
q;"P*“;AT 4,q;"R*" 

304 LET r=r+l: IF r>=2 THEN LET r=0 

305 IF q=c THEN 60 TO 330 

310 LET q=q-l: IF q<=0 THEN PRINT AT 20, q+1 ; ; AT 16,q+l;"*" 
;AT 12,q+l; "*";AT 8, q+1 AT 4,q + i;"»'': LET q=30 
320 RETURN 

330 FOR 1=65 TO -8 STEP -1: BEEP .01,1: NEXT 1: PRINT #1;"*Q:* 
Kraj . *B1 lo*kaja*gumlca: *1 gra*" 

335 FOR 1=65 tO -8 STEP -1: IF INKEY$="" THEN BEEP .01,1: NEXT 1 
340 IF INKEY$="" THEN SO TO 335 
345 IF INKEY$<>"q" THEN 60 TO 1 
350 S [ OF' 

500 CLS 

510 F'RINT AT 3, 0; MISOLOVKA''^*^" ’ ’ ' "''^F'omozl'^'ml 5 l clK-'' 

da*dodje*do<‘5ira, ' al i '»pazl*se''>toct:ava* I <•<■■»*<>" ’ ’ ’ "<>*<»><> 
*X=':‘DESNO*-‘:->Z=*LEyO s*'*'*-!' * !>N=*6ORE**-*'»B=*SK0K ’ "'S' 

■!>*BILO<>KOJA*bUMICA':'ZA*START'S'*" 

515 IF INKEY$<>"'' THEN 60 TO 515 
520 PAUSE 0: RETURN 

SOOO FOR d=USR "1" TO USR ■'o“+7: PRINT PEEK o, : NEXT d 

9000 CLS : RESTORE 9000: FOR o=USR "h" TO USR "p"+7: READ 1: 

POKE 0,1: NEXT o: 60 TO 100 

9010 DATA 129, 189, 195, 129, 129,66,60,0, 129, 189,255, 195, 129, 189, 
255,195 

9020 DATA 0,60,66, 129, 129, 189,255, 195,48,64, 128, 156, 186, 127,62, 

0 

9030 DATA 12,2,1,57,93,254, 124,0,255,0,255,255,255,0,255,0 

9040 DATA 16,40,72, 136, 196, 164, 148,248,60,90, 145,223,251,137,90, 
60 

9050 DATA 60,70,237,185,157,183,98,60 
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2030 

Igra je u stvari obrnuta verzija igre imure, po4to se cilj 
krede, a vi morale da ga uhvatite. Znak pomerate po ekranu 
tasterima W - gore, A - levo, D - desno i Z - dole. Program se 
pokrene pritiskom na bilo koji taster. Pre toga se prepi^e i 
pokrene naredbom RUN. 

Kao i obidno u ovakvim sludajevima evo i jednog saveta: 
program popravite tako da viSe ne hvatate inverzne O sa , nego 
simpatidnim UDE znakom. A 4ta mislite o tome kad bi va4 posao 
obavio radunar? 

1 0!’REM*0brnLita''ver2 i ja<’zmLirke 
20 BORDER 5: PAPER 4: CLS 

30 BRI6HT 1: PAPER 2: INK 7: FLASH 1: PRINT AT 2, 8; "«-0BRNUTA?= 

VERZIJA<>";AT 4, 12; "OZMURKE*'' ! FLASH 0: INK 0: PAPER 4: 

BRI&HT 0 

40 INPUT "iZELISSLIsOBJASNJENJETlD/N) "’a* 
so IF a$=''n" OR a$=''N" THEN 60 TO 80 

60 PRINT AT 7, 0; ''U*ovDj*je''igri *tvoj*zadatak'-'da'‘ ; AT 9,0; "u* 
Dgraniceno(n'>vremenu--’sto*je*<’*®moguce*vi5e*puta*uhvatis* 
ci 1 j**!> (0) - koji "se^pomera. " ; AT 13,4; '‘SvDj*znak* < J<) *pomera5* 
5a<s-!.<>*fl*<>*gumicama": BRISHT l: PRINT AT 16, 13; "W-gore“; AT 
17,5; ''A-levo!>«*««><^^^^ 18, 13; "Z-dole": BRI0HT 0; 

PRINT AT 20,3; ''ZA‘>START<>PRITISNI!>BIL0'>K0JU'';TAB 12; "6UMICU* 

70 PAUSE 0: 

80 BORDER 5: CLS 
90 LET e=500 
100 LET h=0 

110 PLOT 0,164; DRAW 255,0; PLOT 0,12: DRAW 255,0: PLOT 127,0: 

DRAW 0,12 

120 PAPER 2: INK 7: PRINT AT 0, 6; "*0. V. OZHURKE*" : PAPER 4: INK 
0: PAUSE 50 

130 PRINT AT 21,4; "SUDARA: ";h 

140 LET x=10 

150 LET y=14 

160 LET b=2 

170 LET c=l 

180 LET a=INT (5+4»RND) 

190 PRINT AT b,c; 

200 PRINT AT x,y;"g" 

205 IF b=x AND c=y THEN 60 TO 370 

210 PAUSE 5 

220 PRINT AT x,y;"*" 

230 PRINT AT b,c;''*" 

240 IF INKEY$="z" AND b<19 THEN LET b=b+l 
250 IF INKEY$="w" AND b>2 THEN LET b=b-I 
260 IF 1NKEY$=''S" AND c<31 THEN LET c=c + l 
270 IF INKEY$="a" AND c>0 THEN LET c=c-l 
280 IF a=5 AND y>0 THEN LET y=y-2 
290 IF a=8 AND y<30 THEN LET y=y+2 
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300 IF a=6 AND x<18 THEN LET k=k+ 2 
310 IF a=7 AND >; >2 THEN LET x=k-2 

320 IF b=y AND c=x THEN BO SUB 370 

330 LET e=e-l 

340 PRINT AT 21 , 20; "CAS: " ; e 
350 IF e=0 THEN 60 TO 440 
360 60 TO 180 
370 LET h=h+l 

380 FLASH 1: INK 0: PAPER 7: PRINT AT x , y-1 ; "BUM" : FLASH 0: 
PAPER 4: INK 0 

390 PRINT AT 21 , 4; "SUDARA: " ; h 
400 FOR a=0 TO 11 

410 BEEP .2, a: NEXT a 

420 BEEP 8,12: BEEP .8,12: BEEP 1.6,12 
430 PRINT AT y-1 : GO TO 140 

440 IF INKEY$<::'"' THEN 60 TO 440 
450 PRINT AT 10, 10; ''KRAJ*I6RE'’ 

460 INPUT " Zel is*l i *jos*da*5e*i gras?* (D/N) *" ; a$ 

470 IF a$="d" DR a$="D" THEN CLS : 60 TO 40 

480 CLS : INK 6: PAPER 1: PRINT AT 10, 4; “'>D*0**V >I*D*J*E*N*J*A 
I*": PAPER 4: INK 0 


38 akcione igre 


2:MU« Z 


1203 


Pretvorili ste se u zmiju, navodnu zadetnicu celokupnog zla 
na ovom svetu. Pritiskom na tastere sa strelicama <5 — 8) 
vijugate preko celog ekrana i halapljivo gutate brojke. Zadatak 
tako postaje sve teii , jer se zmija produii za onol i ko 
kvadratida koliko je vel i ka brojka koju pojedete. Pre nego 4to 
smo igru spakovali, prvak na£e redakcije osvojio je 265 poena. 

Kad se budete uveibali, radunar treba da bira malo vede 
brojke. Igra de biti bria. All ne psujte kad zbog nekoga malog 
broja budete moral! dugo vijugati i puziti po ekranu ! 


10 DATA 60,126,189,189,189,189,126,18'? 

20 FOR f=0 TO 7: READ t: POKE USR "a"+F,t: NEXT f 

30 LET b$="8": BORDER 2: PAPER 7: LET c=0: CLS 

40 LET x=10: LET y=19: LET a*="" 

50 FOR 4=10 TO 19: LET a$=a$+" 10"+STR* f: PRINT BRIGHT 1; 

INK 0;AT 10,f ; "A": NEXT i 
60 60 SUB 220 

70 LET z*=INKEY*: IF z$>"4" AND z$<''9" THEN LET b$=zt 
30 LET K=>i + (b$=''6")-<b$="7'') : LET y=y+ (bt="8" ) - (b*="5'' ) 

90 IF ATTR (x,y) = 120 OR ;<=22 OR y=32 THEN GO TO 230 
100 60 SUB 190 

110 LET c$=STR* x: IF x<10 THEN LET c$="*"+STR* x 

120 LET d$=STR$ y: IF y<10 THEN LET d$="’>"+STR$ y 

130 LET xl=VAL a$ ( TO 2): LET yl=VAL a$(3 TO 4): IF ATTR <xl, 
yl)<>120 THEN 60 TO 150 
140 PRINT AT xl,yl;'‘<*" 

150 PRINT BRIGHT 1; INK 0;AT x,y;"A'’ 

160 LET a*=a*+c$+d$: IF c=0 THEN LET a*=a*(5 TO ) 

170 LET c=c-(c:!0) 

180 GO TO 70 

190 LET F$=SCREEN$ (x,y): IF F$>"9" OR f$<"l" THEN RETURN 
200 LET c=c+VAL f* 

210 BEEP .01,0: BEEP 0.01,10: BEEP .01,20 

220 PRINT FLASH 1; BRIGHT 1; PAPER 4;;AT (RND»22) -1 , (RND*32) - 
1;INT (RND*9)+1: RETURN 

230 LET x=x-(x=22)+(x=-l): LET y=y- (y=32) + <y=-l ) 

240 PRINT AT x,y; FLASH 1;"A";AT 10, 5; "REZULTAT*: ; (LEN a$/4)- 
10 

250 FOR F=20 TO -50 STEP -5: BEEP .02,F: NEXT F 

260 FOR f=l TO 200: NEXT F 

270 IF INKEY$="" THEN 60 TO 270 

280 CLS : GO TO 3t> 
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Kod nas je smudanje postalo taka popularno da ga vi^e ne 
gledamo samo u deset i u Jedan, kad sii ina^e sva takmidenja za 
svetski kup, nego ga nadete dak i u TV kvizu i u mnogo 
radunarskih igara- Jedna od njih zahteva ne^to vi^e smudarskog 
znanja nego Horace Goes Skiing ili Skiing radunarom commodore. 
To je ova koju vidite pred sobom. U njoj ne vidite smudara, nego 
samo njegov trag na stazi. 

Smudara vodite tasterima 5 i 8 levo i desno. Program de vam 
izmedu tadaka interpol irati lepu krivu koja de pokazati kako ste 
pre^li stazu. Skredemo vam painju na to, da Je da Je slalom 
veoma gust i zato podetnicima savetujemo intenzivno kodenje- Sve 
drugo Je detaljno opisano u instrukci Jama REM. 

Prilidno dosadan nam se dini deo programa koji crta stabla. 
Probajte da ga skratite, pa de vam slalom postati si mpati dni J i . 
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1 SO TO 730 
10 CLS 

20 LET sta 2 a=l 
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30<-REIi''>obi i k'-zastavice 

40 FOR n=0 TO 7: READ a: POKE USR "a"+n,a: NEXT n 
50<’REM*obl i k-> 5 tabal a 

60 FOR n=0 TO 7: READ s: POKE USR " 5 "+n,s: NEXT n 
70 FOR n=0 TO 7: READ 1: POKE USR "l'‘+n,l: NEXT n 

S0*REM'>crtan je-stabala 

90 RANDOMIZE : FOR m=2 TO 6 : FOR n=0 TO 3: BEEP .01,n: LET 
nak=RND: IF nak<.33 THEN PRINT AT m,n! INK 4; "S" 

100 IF nak >.66 THEN PRINT AT m,n; INK 4;"!." 

no LET nak=RND: IF nak<.33 THEN PRINT AT m,31-n; INK 4;"L" 

120 IF nak >.66 THEN PRINT AT m,31-n; INK 4; “S" 

130 NEXT n 
140 NEXT m 
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150 FOR m=7 TO 21: FDR n=0 TO INT (iii/2) : BEEP .01,n: LET 
nak=RND: IF nak<.33 THEN PRINT AT m.n; INK 4; "S“ 

160 IF nak>.66 THEN PRINT AT m,n; INK 4;"I." 

170 LET nak=RND: IF nak<.33 THEN PRINT AT m,31-n; INK 4;"Z." 

ISO IF nak>.66 THEN PRINT AT m,31-n; INK 4: "S" 

190 NEXT n 
200 NEXT m 

210 PRINT AT 0,15; BRIGHT 1; FLASH 1 -sREM'S-start 

220*REH'-’c r t an j e*st az e 
230 FOR v=l TO 9 
240 LET boja=l 
250 READ kapija 

260 IF v=l OR v=3 OR v=5 DR v=7 OR v=9 THEN LET boja=2 
270 PRINT ; INK baja;AT v*2, INT (kapi ja/8) ; " A" : PRINT ; INK 
boja;AT v*2, INT !kapi ja/8) +4; "A" 

280 NEXT V 

290 IF staza=l THEN RESTORE 650: 60 TO 340 ' 

300 IF staza=2 THEN RESTORE 660: GO TO 340 

310 IF stasa=3 THEN RESTORE 870: GO TO 340 

320 IF staza=4 THEN RESTORE 880: 60 TO 340 

330 RESTORE 890 

340 PRINT AT 21 , 12; "C>I':L*J " : LET casO: PRINT AT 0,28; "0": 

PRINT AT 1,0; "STAZA!'";staza 
350 IF INKEYt="'' THEN GO TO 350 

360 LET polozaj”127: LET pu.t = 168: LET smer=0: LET koraka=0 
370 PLOT poIozaj,put 
380 PRINT AT 0, 15; " , , " 

390 OVER 1 
400 PAUSE 8 

410 IF INKEY»="8" THEN LET smer=smer+3 
420 IF INKEY$="5" THEN LET smer=smei^ — 3 
430 LET pol ozaj=poI ozaj+smer : LET put=put-2 
440 DRAW 5mer,-2 

450 LET cas=cas+ABS smer: OVER 0: PRINT AT 0,28;cas: OVER 1 
460 IF polozajK (175-put) *80/175 THEN GO TO 520 
470 IF poIozaj>255-(175-put)*79/175 THEN GO TO 520 
480 IF put< = 10 THEN PRINT AT 10,10; BRIGHT 1; FLASH 1 ; " B*R:>AsV 
0": GO TO 530 
490 LET koraka=koraka+l 
500 IF kDraka =8 THEN GO SUB 680 
510 GO TO 400 

520 PRINT AT 0,0; FLASH 1; BRIGHT 1 ; " I2LETI0-:>SI'>SA<'STAZE* ! '' 

530 LET 5tstaza=staza 

540 INPUT "PO*KOJOJ !>STAZI<>2ELIS*<>DA<>SKI JAS*?'5-> ( i - 5 ) ■(■■sc** " 
;proga ^ 

550 IF stazaKl OR 5 taza >5 THEN 60 TO 540 
560 IF 5 taza=l THEN RESTORE 850: GO TO 610 

570 IF 5 taza =2 THEN RESTORE 860: GO TO 610 

580 IF staza=3 THEN RESTORE 870: GO TO 610 

590 IF staza=4 THEN RESTORE 880: 60 TO 610 

600 RESTORE 890 

610 IF ststazaOstaza THEN CLS : 60 TO 80 

620'>REH*ako*je*5taza*jednaka*prethodnoj , '/Dstavi^jednak* 
raapored-i-Btabala 
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630 OVER 0: PRINT AT 0, 0; 

640 PRINT AT i , 0; ''*®<’*<’**<’*<><'****<’*-!'»**!>*****:>* 

650 FOR m=2 TO 6: FOR n=4 TO 27: PRINT AT m,n; NEXT n: 

NEXT m 

660 FOR m=7 TO 21: FOR n = INT (ni/2) + l TO 30-INT (m/2): PRINT AT 
m.n;":’": NEXT n: NEXT m 
670 60 TO 210 

680*REM*t:ontrol a*na*kapi jama 
690 READ kapija 

700 IF polozajXkapi ja+7 OR pol ozaj >kapi ja+40 THEN F'RINT AT 0, 

0; BRIGHT 1; FLASH 1 ; "PROMASIO<>SI*k:API JU* ! " : GO TO 530 
710 LET kDraka=0 
720 RETURN 

730 CLS : PAPER 7: INK 0: PRINT AT 3, 8; '•SC'LSAOL'SDOM" 

740 PRINT AT 10,0; "*Smucara‘''pomocu'>strel ica*vodis<'*‘><’<’*''''levo‘>-* 
desno*po''ekranu* " 

750 PRINT AT 20,0; FLASH 1 ; " 5pRITISNI<>NA*BIL0*K0JU*6UMICU'> ! *'' 
760 IF INKEY$="" THEN GO TO 760 
770 CLS : GO TO 20 

780*REM<‘obl i k*kapi Je*" A" 

790 DATA 0,EiIN 00000001, BIN 00000011, BIN 000001 11, BIN 00000011, 
B I N 0000000 1 , B I N 0000000 1 , B I N 0000000 1 

SOO^REM'S-ob 1 i k*smreke 

810 DATA 0,BIN 00010000, BIN 001 11000, BIN 001 11000, BIN 01111100, 
BIN 11111110,BIN 00010000, BIN 00010000 

820*REM*obl i k^stabl a 

830 DATA 0,BIN 00111000, BIN 01111100, BIN 01111100, BIN 01111100, 
BIN 001 11000, BIN 00010000, BIN 00010000 

840 - REM'-^podac i a'^kap i je 
850 DATA 80,104,72,120,104,96,128,144,120 
860 DATA 80,56,104,152,160,128,144,80,104 
870 DATA 96,136,96,136,88,72,128,144,104 
880 DATA 136,168,120,80,56,112,128,88,128 
890 DATA 88,128,80,120,64,136,80,128,88 
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2719 

Ruski rulet laoie da se igra kod kude bez neke posebne 
opasnosti. Pri takvoj zabave treba imati neSto viSe srede i, 
razume se, pravi kolt. U ovoid sludaju radunar de zameniti kolt, 
a Vi dete, umesto na obarad, pritiskati na jedan od gumenih 
tastera. 

Na podetku vam radunar nacrta ne^to nalik na kolt. Zatim 
treba da odludite da li dete pritisnuti na obarad ill 
odustajete. Imate samo dve mogudnosti: kad pritisnete na obarad 
modete ili da dujete klik ili da ostanete bez glave. Ako se 
predomi si i te i ne pritisnete na obarad, radunar de vas jo4 k 
tome nazvati kukavicom. 

Qd 10. do 70. reda de radunar najpre crta neko dudo koje mi 
nazivamo kolt. U redovima 90. i 100. dodaje nekoliko krugova. Od 
reda 280. zavisi da li de vam glava posle pritiska na obarad joi 
ostati na vratu. Ako glava ode, u redovima od 330. do 380. bide 
nacrtano va^e zadnje boraviSte. 

Zadatak za rodene hazardere: 280. red nije nam ba£ previse 
simpatidan, jer ni generator sludajnih brojeva u spectrumu nije 
ba^ najbolji. Napi^ite sami potprogram za generisanje malo 
sludajnijih brojeva. 


(( Y 


'i r 


I 

-■ t 


10 PAPER 5: BORDER 5: INK 0: CLS 
20 FOR t=l TO 19 STEP 1 
30 READ q,w,e,r 

40 DATA 72,64,0,-64,88,64,0,-56, 104,64,0,-64,72,64,32,0,80,88, 
0,-16,96,88,0,-16,64,88.48,0,56, 17,0,-17, 120, 17,0,-17 
50 DATA 64,131,0,-43,112,131,0,-43,72,144,0,-10, 104, 144,0,-10, 
72, 144,8,0,96, 144,8,0,80, 136,8,8,88, 144,8,-8,80, 144,6,-2, 
96, 144, -6, -2 


60 PLOT q,w: DRAW e.r 
70 NEXT t 

80 IF t>19 THEN SO TO 90: IF t<19 THEN 60 TO 10 
90 CIRCLE 88,72,64: CIRCLE 88,112,16: CIRCLE 88,112,24: 
CIRCLE 48,72,16 

100 CIRCLE 128,72,16: CIRCLE 88,72,8 
110 PRINT AT 9,21; ''ROU^SOK-s-I" 
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120 BEEP .1,.001 

130 PRINT AT 11,21; "R*U*L*E*T“ 

140 PAUSE 40 

150 PRINT #1 ; "Pri ti sni ■■'bi 1 o*koji *taster " : PAUSE 0 

160 CLS 

170 BEEP .2,4 

180 BORDER 5 

190 PRINT AT 6,0; "PREDOTOBOM-s jEipQLICIJSKI s oKOLTi'SpOPULARNO! * 
NAZVAN**38*<>SPECIAL<!-!>(STANDARDN0-S'NA0RUZANJE:' 
AMERICKIHPOLICAJACA I ) SSAS'SKRACENOMSCEVI . ':-U*BURENCETU*IMA;>!> 
MESTA'!>*ZA**6'>**f1ETAKA.<>ZA'!>RUSKI«'RULET*JE*U'>">«-»*BURENCETU'><> 
S AMO-'- J ED AN-s MET AK ! <■■!“>* 1 8PR0B A J *POD*K AK VON** Z VE ZDOM S'S I * 

ROD JEN ! opR I T I SN I* 1 * I <?ENTER*Z A«-*<>SVAK I *<>POKUBAJ , <'<>A0 » AKO** 
Te<>*JE<>STRAH, -ipRITISNI :>0<>I*ENTER. ” 

200 PRINT #l;''Pritisni*bilo*koji*taster": PAUSE 0 
210 BEEP .2,4 
220 CLS 

230 PR I NT " I SPROBA J !>SRECU : :>PR I T I SN I * 1 I S -:”>*ENTER " 

240 INPUT B; 

250 IF B=0 THEN PRINT "KUKAVICO* ! ! " 

260 IF B=1 THEN 60 TO 280 

270 60 TO 240 

280 LET Z=INT (RND»7> 

290 IF Z=3 THEN 60 SUB 320: 60 TO 230 

300 IF Z<>3 THEN PRINT AT 1 1 , 1 1 ; "KLIK" : BEEP .2,40: CLS : 60 
TO 230 

310 60 TO 240 
320 INK 0 

330 FOR 4=1 TO 16 STEP 1 
340 READ a,s,d,g 

350 DATA 88,48,21,0,72,64,16,-16,112,48,16,16,72,64,56,0, 100, 
72,0,-20,88,68,24,0,72,64,16, 16,112,80, 16,-16 
360 DATA 88,80,88,48,112,80,88,48, 176, 128,24,0,200, 128, 16,-16, 
128,64,88,48,112,48,88,48,200,96, 16, 16,88,80,24,0 
370 PLOT a,s: DRAW d,g 
380 NEXT i 

390 PRINT AT 17, 5; "ODE !'6LAVA»SA5RAMENA* ! " 

400 BEEP 3,0 
410 CLS 

420 RESTORE 340 
430 RETURN 
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Dvo je sifflulacija jedne od igara koje smo rado igrali 
ijsnovnoj 4koli. Na osnovu imena i prezimena dve osobe, od koji 
je jedna muSkog a druga ±enskDg pola, treba da utvrditi da li su 
prikladne za par ili ne. U dobra stara vremena to smo radili 
olovkom i papirom, a danas moie i dobrim starim spectrumom. 

U program se ukucaju imena i prezimena- Ratunar (ie javiti 
koliko ti i ona imate zajednidkog, izraSeno u procentima. 

Program preporudujemo u prvom redu onim mladim 
zal jubl jenicima kojima ta "tegoba" ne dozvoljava da se have 
raeunarima. Moida de zalutati u hakerske vode i i sprogrami rat i 
joS neke druge eimulacije. Za podetak predlaiemo onu s belom 
radom, koju emo zvali "voli me, ne vol i me". 

1 ***)(I»*»*i»**»»)(l*)|l***<> 

J. iljaS'-'ROBERT*******- ■=••■>■■>«■***«■****»***** »***»*»* 

10 POKE 23692,253: POKE 23609,255: CLB : PRINT AT 0,10; FLASH 
1; BRIbHT 1; FLASH 0; BRIbHT 0 

20 PR I NT ■' '‘RACUNAR*CE''> I ZRACUNAT I *K0L I KO :>*<>*PRDCENATA*JE*TEB I * 
I*NJOJ'>««"!’«-!>''*ZAJEDNICKO.*PISI<’VELIKIM'>*«-«-*'5*'STAMPANIM* 

SLOVIMAI " 

30 PRINT ” ” "■!>*i>UPIST*SVOJE*IME»I<>PREZIME" 

40 LET H=0: LET 1=0: LET J=0: LET 6=0: LET B=0: LET C=0: LET 
D=0: LET E=0 
50 INPUT B* 

60 LET A=LEN B$+l 
70 LET A=A-1 


80 

IF 

A<1 THEN 

60 TO 

260 


90 

IF 

B$(A)= 

"L" 

' THEN 

60 

TO 

140 

100 

IF 

E$(A)= 

‘■O’ 

‘ THEN 

60 

TO 

170 

110 

IF 

B$(A)= 

‘■V‘ 

' THEN 

60 

TO 

200 

120 

IF 

B*(A)= 


' THEN 

60 

TO 

230 

130 

60 

TO 70 







140 LET E=B+1 
150 PRINT AT 12,3; B 
160 60 TO 70 
170 LET C=C+1 
180 PRINT AT 12, 4; C 
190 60 TO 70 
200 LET D=D+1 
210 PRINT AT 12, 5; D 
220 60 TO 70 
230 LET E=E+1 
240 PRINT AT 12, 6; E 
250 60 TO 70 

260 PRINT ’ "UPISI« I«DRU60«PREZIME*I4TriE 
270 INPUT C$ 

280 LET F=LEN Ct+1 

290 LET F=F-1 

300 IF F<1 THEN 60 TO 480 
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310 IF C$(F)="L" THEN 60 TO 360 

320 IF C$(F)="0'' THEN 60 TO 390 

330 IF C*(F)="V" THEN SO TO 420 

340 IF C$(F)=“E" THEN GO TO 450 

350 GO TO 290 

360 LET 6=6+1 

370 PRINT AT 19,4;G 

380 60 TO 290 

390 LET H=H+1 

400 PRINT AT 19, 5; H 

410 GO TO 290 

420 LET 1=1+1 

430 PRINT AT 19,6; I 

440 GO TO 290 

450 LET J=J+1 

460 PRINT AT 19, 7; J 

470 60 TO 290 

480 PAUSE 300: PAPER 7: INK 0: BORDER 7: CLS : PRINT FLASH 
1; BRIGHT 1:8$; BRIGHT 0; FLASH 0,: PRINT B:C;D:E 
490:PRINT FLASH 1; BRIGHT 1;C$; BRIGHT 0; FLASH 0,: PRINT 
G;H;I;J 

500 PRINT BRIGHT 1 ; ’ ; "AH, oKAKOOLEPA'i-IMENA" ; BRIGHT 0 
510 PRINT ’ "A*SADA«DRn'>PALCEVE:*POCINJEM«DA<>RACUNAM! ! !“ 

520 LET K=B+G: LET L=C+H: LET M=D+I: LET N=E+J 
530 PRINT ’ ' ’ "VAS*ZAJEDNICKI*ZBIR'>JE->";K;L!M;N 
540 PRINT ’ "ZBIR*BAS*I''NIJE5-VELIK,*ALISNE*'»BRINI:«NADAJ*SE!> 
NAJBOLJEM" 

550 LET D=K+L: LET P=M+N: GO TO 570 

560 PRINT ’ “SAKUPILI*STE*";0;P; GO TO 590 

570 IF 0<9 OR P<9 THEN 60 TO 560 

580 LET R=0+P 

590 PRINT FLASH 1 ; ’ "OHSKAKAV?STE*PREKRASAN'>PAR'>" ; FLASH 0: 
PRINT ; BRIGHT 1 ; B$; "« I ; C$; BRIGHT 0: PRINT ’ "ZELIS»LI'> 
JOS^DA-i-R ACUNAS?" 

600 INPUT D$ ■ 

610 IF D$(1)="D" THEN GO TO 1 
620 STOP 
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Igra je arkadna, a od igrada zahteva i poznavanje brojeva od 
O do 9. Dakle, kao porudena za one koji su ved proradili jedan 
od mnogobrojnih programa o tome kako ciciban ili madak Mori 
bro je. 

Na ekranu de se sludajno pojaviti deeet brojki od O do 9. 
Treba oboriti 5ve redom. To se postiie specijalnom kuglom koja 
se neprestalno kotrlja. Pravac kotrljanja menja se pritiskom na 
bilo koji taster. 

Zadatak; Lopta koju pomeramo nije narodito lepa. Umesto nje 
nacrtajte neki odabran gra-fidki znak koji de se kotrljati po 
ekranu. Ako ste u umetnost programi ran ja prodrli malo vi^e, 
motda dete uspeti da nacrtate dak i krokodila sa Siroko 
razjapljenim deljustima, koji de nastojati progutati brojeve. 

lOOREMOoiiSBORsO-s-JOKOE-sii 

20 60 TO 690 

30 DIM x(lO): DIM y(10) 

40 FOR i=l TO 10 

50 LET x(i)=INT (RND»31+1) 

60 LET y(i)=INT <RND«21+1) 

70 IF SCREEN* <y (i ) , x (i ) ) <>"« " THEN 60 TO 50 
80 PRINT AT y(i),x(i);i-l 
90 NEXT i 

100 LET >il = l: LET yl=0 

110 LET Kt=0: LET yt=0 

120 LET >;s=0: LET ys=0 

130 POKE 23672,0: POKE 23673,0 

140 POKE 23674,0: POKE 23672,0 

150 FOR i=l TO 10 

160 PRINT AT yt,xt; INVERSE 1; SCREEN* (yt,Kt) 

170 PRINT AT ys,x5; INVERSE OiSCREEN* (ys,X5) 

180 IF xt=31 AND xl=l THEN LET xl=0: LET yl=l: BEEP .05,10: 60 
TO 220 

190 IF yt=21 AND yl=l THEN LET xl=-l: LET yl=0: BEEP .05,10: 

60 TO 220 

200 IF xt=0 AND xl=-l THEN LET xl=0: LET yl=-l: BEEP .05,10: 

60 TO 220 

210 IF yt=0 AND yl=-l THEN LET xl=l: LET yl=0: BEEP .05,10 

220 LET xs=xt: LET y5=yt 

230 LET xt=xt+xl: LET yt=yt+yl 

240 IF xt=x(i) AND yt=y(i) THEN 60 TO 270 

250 IF INKEY*<>"" THEN 60 SUB 310 

260 60 TO 160 

270 PRINT AT yt , xt ; " ■iT0^ : PRINT AT ys,xs; INVERSE 0;SCREEN* ( 

y s , X 5 ) : BEEP . 5 , 2 
280 NEXT i 

290 LET t=(65336*PEEK 23674+256*PEEK 23673+PEEK 23672)750 
300 RETURN 

310 IF xl=l AND yl=0 THEN LET xl=0: LET yl=l: RETURN 
320 IF xl=0 AND yl=l THEN LET xl=-l: LET yl=0: RETURN 
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330 IF AND yl=0 THEN LET ;;1=0: LET yl=-l: RETURN 

340 LET k 1=1: LET yl=0: RETURN 

350 BORDER 3: PAPER 5: INK 1: CLS 

360 INPUT "Kol i k:o'''’takmi csra?*" ; ig 

370 PRINT AT 10, 8; "Ukucaj'S imens: " 

380 DIM i $ ( 1 g , 1 0 ) ! DIM v ( i g ) 

390 FOR n=l TO ig 

400 BEEP .5,16: INPUT "Takmi car s" ; (n) ; ; LINE i$(n) 

410 NEXT n: LET kQlo=l 
420 FOR n=l TO ig 

430 BORDER 2: CLS : PRINT AT 2, 10; kol o; "KOLO" ; AT 10,10;: FLASH 
1: FOR w=l TO 10: IF i$(n,w)<>''*" THEN PRINT i»(n,w);: 

NEXT w 

440 BEEP .5,0: FLASH 0: 60 SUB 640: BORDER 6: CLS : 60 SUB 30: 
CLS 

450 IF NOT v(n) OR t<v(n) THEN LET v(n)=t 
460 PRINT AT 10,10;it<n) 

470 PRINT AT 1 1 , 10; "Rezul tat ; t 
480 PRINT AT 12, 10; "Rekord « " ; v (n ) 

490 60 SUB 640: NEXT n 

5U0 CLS : IF ig=l THEN 60 TO 590 

510 LET vmin=v(l) 

520 FOR n=2 TO ig 

530 IF vinXvmin THEN LET vmin=v(n) 

540 NEXT n: PRINT AT 1 , 8; "Rszul tat i : ' 

550 FOR n=l TO ig 

560 IF v(n)=vmirp THEN FLASH 1 

570 F'RINT n;TAB 5; i $ In) ; " ; v (n ) 

580 FLASH 0: NEXT n 

590 PRINT #0;TAB 7; "Novo''kDl o* (d/n ) ?" 

600 60 SUB 640 

610 IF t$="n" THEN STOP 

620 IF f$<>"d" THEN 60 TO 600 

630 LET kolo=kolo+l: 60 TO 420 

640*REM***<><>PAUSE 
650 IF INKEY$<>"" THEN 60 TO 650 
660 IF INKEY$="" THEN 60 TO 660 
670 LET t$=INKEY$ 

680 RETURN 

690 PAPER 1: INK 6: BORDER 1: CLS 
700 PRINT TAB 7; "*'>*»**BROJEVI***" 

710 FOR n=20 TO 0 STEP -1: BEEP .02,n: NEXT n: BEEP .5,10 
720 PRINT ’ ''Na'"'ekranu<’5e-'--na5utnice*postavi«*':>de5et<>brQjki :od<‘0* 
do'9.*TvojF-'5-**zadatak*je<'-da'>po*redosledu''!-****'>oboris*5ve'» 
brojke. ■■>2ato<'ima5''na'''raspalaganju*posebnu*'‘ "kuglu"" , 
kojoj'^^'pri ti 5kDm"'na‘'Liedan-'od*'><'<"'>ta5tera--''promeni 5'"pravac*^'->'> 
'•’'■’‘■'“‘■’kotr 1 janja*za'!’90‘'5tepeni>:>u<’smerukretanja*kazal jke*na* 
casovni ku. '' 

730 PLOT 86,136: DRAW 124,0 

740 PRINT ’ " '■'■»Kugla*promeni4pravac'!kretanja'5i *kada!'udari Su‘> 
strani cu. ■‘■Tiaa''-^'>'^'''>rGZul tat ■^■Pobi jemo*utroseno4'"p>v':p->4vr erne. 
Najbol j i <-TezLil tat -^svakDg-'Pakmi cara'-*Pe''-pGmori se. " 

750 PRINT ’ "*''><>Priti5rii*bilo*koji*taster": PAUSE 0 
760 60 TO 350 


48 akcione igre 


Fv-OMEIO 


1952 

Ko ne zna pridu o Romeu i Juiiji, modi de da u igri prode i 
bez nje, a modda mu to znanje bude koristilo jednom kasnije- 
Program Je veoma kratak- Svako ko ga savesno prekuca, bide 
nagraden zaista dobro animiranom arkadnom igrom. Na balkonu vas 
deka Julija, a vi , Romeo, ±elite da joj skodite u zagrljaj. To 
poBtidete tako da na suprotni kraj daske na kojoj stojite bacite 
P^^ljivo izabran teg. Podetnik mote iz ovog programa mnogo da 
naudi , jer je s malo naredbi napravljena e-fektna igrica- 



10 PAPER 0: INK 7: CLS 

20 DATA 56,56,146,254,16,124,68,198 

30 DATA 0,255,171,171,171,171,255,255 

40 DATA 0,0,28,20,62,62,127,127 

50 DATA 0,0,0,0,24,126,255,255 

60 DATA 192,224,224,240,240,224,224,192 

70 FOR n=144^T0 148 

80 FOR i=0 TO 7: READ a: POKE USR CHR$ n+T,a: NEXT f 
90 NEXT n 

100 PRINT AT 4,0; INK 6 ; " ; A T 5 ^ q. ..iiiiiiiiiiBii.. . 6,0;"««l 

no FOR n=7 TO 21: PRINT AT n,l; INK z,. ..** 111111 . 1 . |,jexT n 
120 PRINT AT 11,13; INK 4;..ni«l";AT 12, 15; "H" ; AT 13, 15; " I" ; AT 
14,15;" AT 18, 15; "I"; AT 17,15;" AT 20, 15;"I";AT 21,15; 

J" 

130 FOR n = ll TO 21: PRINT AT n,16; INK 4. ..|**ii*****|****B**i*|.. . 
NEXT n 

140 LET k= 21: LET y= 8 : PRINT AT 21,10;''0": PLOT 64,0: DRAW 37, 
16 

150 PRINT AT x,y; INK 5; "A" 

160 LET h=INT (RND»ll)+a 
170 PRINT AT h+l, 6 ;"S" 

180 PRINT AT 4 , 1 2 ; " UF j S I -STE Z I NU'i TE 6 A'? " ; AT 5 , 1 3 ; " ( max . 1 4 ) " 

• 190 INPUT w: IF w<=0 OR w>=15 THEN GO TO 190 

200 FOR n=10 TO 20: PRINT AT n-1 , 12; ; AT n,12;"C“: BEEP .1,- 

n: NEXT n 
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210 F'LOT 64,0: DRAW OVER 1;37,16: PLOT 64,16: DRAW 37,-16 
220 FOR n=l TO w 
230 LET K=K-1 

240 PRINT AT x,y;"A'';AT x + l.y;"*": BEEP .01,-x+8 
250 NEXT n 

260 FOR n = l TO 2: LET y=y-l: PRINT AT x,y;"A*'': NEXT n 
270 IF x=h THEN 60 TO 300 
280 IF x>h THEN SO TO 340 

290 IF x<=h THEN PRINT AT x,yi INK 5;"£*": BEEP 1,-10: PRINT # 
0; “TRESNUO*SI<>U<'ZIDINE": PAUSE 500: RUN 
300 PRINT AT x , y+1 ; "HURA, -SROMEO*" : PRINT iO;''JULIJA«TE!>JE=> 
OBASULA<’***'>«'<>** i>**POLJUPCIMA* ! " 

310 FOR m=l TO 5: FOR n=0 TO 10: BEEP .l,n: NEXT n: NEXT m 
320 CLS 
330 RUN 

340 FOR n=x TO 21 

350 PRINT AT n,y; INK 5; "f'*'" ; AT n-l,y;"<’" 

360 BEEP .05,n 
370 NEXT n 

380 PRINT AT 21,y; INK 5; "0" 

390 BEEP 1,-10 
400 RUN 
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Da nije bilo programa Zlo, kako smo ga u redakciji nazvali, 
ova knjiiica bi bila pred vama verovatno nekoliko meseci ranije. 
Ova igra dopala nam se najvi^e od svih arkadnih igara. i proveli 
amo flinogo vremena igrajudi je 

Radunar prvo na ekran nacrta polje za igru, sastavljeno od 
zidina i ZLOG trepdudeg kvadratida li sredini. Raketom, koju 
vodimo basberima 518, moramo svoj vasionski brod ili 
"pneumabski dekid" usmeribi bako da uni^bimo brepdudi kvadrab. 

Arhibekbura programa je prilidno jednosbavna. U 105. redu se 
iz DATA insbrukcije prodiba oblik zlog kvadrabida. 110-150 crba 
polje igre. 170 -240: radunar uPOKuje gra-fidki znak za bzv. 
pneumabski dekid, dakle za svih 8 pravaca u kojima moie da se 
pomera. Sledi sama igra. Glavna peblja u njoj je izmedu lOOO. i 
1300. reda. Pobprogram od 2000. do 2610. vodi raduna o borne, da 
vasionski brod pogodi u prepreke odnosno uni^bi zli kvadrabid u 
sredini. Od 6000. reda dalje sme^bena su upubsbva. Pobprogram od 
9000. do 9070. reda pokrene se kada igra zavr4i. 

Prilikom ukucavanja igre bide manje posla nego Sbo izgleda na 
prvi pogled. Redove od 170. do 240. napiSibe bako da ukucabe 
samo red 170, a zabim naredbom EDIT popravljabe brojke reda i 
slovD naredbe USR, Sbo je i jedina razlika medu redovima. Slidno 
vaii i za redove od 2000. do 2610. 

lako je program u bejsiku, radi prilidno brzo. To je 
posbignubo u prvom redu izradunabom insbrukcijom GOTO u redu 
llOO. Na baj nadin je u programu izbegnubo dugo braSenje kroz 
mnoSbvo insbrukcija; uvek se izvrSi ona prava. Program bi mogao 
Dibi jo^ brdi ako bi umesbo -funkcije SCREENS upobrebl javao 
•funkciju ATTR, koja je bibno bria. 

Zadabak: ako vam je igra dosadila, modda bi bilo lepo da 
umesbo X upobrebibe neki drug! znak. Primebidebe da bime nasbaju 
novi problem! u vezi s funkcijom SCREENS. Kada se umesbo znakova 
ASCII upobrebl java ju gra-fidki znakovi (UDG) koje odredi 
*^oi"isnik, funkcija SCREENS viSe ne deluje pravilno. 



5 BORDER 0: PAPER 0: INK 7: CLS : PRINT ” ’"ZLO'fr' ' ‘ " 
10 RANDOMIZE 

20 60 SUB 9999: GO SUB 6000 
90 LET h=32E26 
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1 O^.) 

PAPER 0: 

INK 6: CLS 




105 

FOR 1—0 

TO 7: READ 

a: 

POKE USR 

NEXT 

i 

110 

PRINT AT 

6 , 1 C) ; " 

\\x 

->---X'‘;AT i6,10;‘'X 

.:>.:>*XXX 


115 

PRINT AT 

CO 


•<k>.:>.:::-.:>4>x";AT 8,8; 



120 

PRINT AT 

13, 13; "XA 

•XX" 

i> 

-H 

X 

X 



l25 

PRINT AT 

8,8; ''X<'‘ 





135 

PRINT AT 

4, 12; "X 

X 

";AT 18, 12; "X**** 

<>X" 


140 

PRINT AT 

12, 10; "X 

X 

X*<>X";AT 10,10;" 

X 

X 

X 

X 

150 

PRINT AT 

11,10; "X 


; INK 4; "I"; INK 

6; " ■■■■■■■■■■ ■' 

..:>X» 

170 

FOR i=0 

TO 7: READ 

a: 

POKE USR "h"+i,a: 

NEXT 

i 

180 

FOR i=0 

TO 7: READ 

a > 

POKE USR "d"+i,a: 

NEXT 

1 

190 

FOR i=0 

TO 7: READ 

a: 

POKE USR "T"+i,a: 

NEXT 

i 

200 

FDR 1=0 

TO 7: READ 

a: 

POKE USR "b"+i,a: 

NEXT 

i 

210 

FOR i=0 

TO 7: READ 

a: 

POKE USR "a"+i,a: 

NEXT 

1 

220 

FOR i=0 

TO 7: READ 

a: 

POKE USR "e"+i,a: 

NEXT 

i 

230 

FOR 1=0 

TO 7: READ 

a: 

POKE USR "g"+i,a: 

NEXT, 

i 

240 

FOR 1=0 

TO 7: READ 

a; 

POKE USR "c"+i,a: 

NEXT 

i 


2<?0 DATA 146,254,254,254,146,254,40,108 
30o DATA 16,16,16,56,56,56,56,56 
310 DATA 56,56,56,56,56,16,16,16 
320 DATA 0, 0,31, 255, 3r,0, 0,0 
330 DATA 0,0,248,255,248,0,0,0 
340 DATA 1,2,20,56, 124', 248, '115, 32 
350 DATA 4, 14, 31, 62, 28, 40, 64j 128 
360 DATA 128,64,40,28,62,31,14,4 
370 DATA 32,112,248,124,56,20,2,1 
1000 LET go=0! LET ;; = 10+INT (RNDI15): LET y=0 
1010 LET d=2 

1080 PRINT AT y,;;; INK 6;CHR$ (144+d) 

1090 BEEP .03,-30 
1095 LET go=go+l 

1100 LET t!!=x: LET ty=y: GO SUB 2000+d)(il00: PRINT AT y,x;"<>": 

LET ;!=tx: LET y=ty 

1200 IF INKEY$="5'' THEN LET D=D-1: IF D<0 THEN LET D=d+8 
1210 IF INKEY$="8" THEN LET d=d+l: IF d>7 THEN LET d=d-8 
1220 IF x=15 AND y=ll THEN GO TO 9000 
1300 GO TO 1080 

2000 IF CODE SCREEN* ( ty-1 , tx+1 ) =88 THEN BEEP .005,30: RETURN 
2010 IF ty-KO OR tx + l>31 THEN RETURN 
2020 LET ty=ty-l: LET tx=t;< + l: RETURN 

2100 IF CODE SCREEN* (ty,tx+l)=88 THEN BEEP .005,30: RETURN 
2110 IF tx+l>31 THEN RETURN 
2120 LET tx=tx+l: RETURN 

2200 IF CODE SCREEN* (ty+1 , tx+1 ) =88 THEN BEEP .005,30: RETURN 
2210 IF ty+1 >21 OR tx+1 >31 THEN RETURN 
2220 LET ty=ty+l: LET tx=tx+l: RETURN 

2300 IF CODE SCREEN* (ty+1, tx) =88 THEN BEEP .005,30: RETURN 
2310 IF ty+1 >21 THEN RETURN 
2320 LET ty=ty+l: RETURN 

2400 IF CODE SCREEN* (ty+1 , tx-1 ) =88 THEN BEEP .005,30: RETURN 
2410 IF ty+1 >21 OR tx-KO THEN RETURN 
2420 LET ty=ty+l: LET tx=tx-l: RETURN 

2500 IF CODE SCREEN* (ty,tx-l)=88 THEN BEEP .005,30: RETURN 
2510 IF tx-KO THEN RETURN 
2520 LET tx=tx-l: RETURN 
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;600 IF CODE SCREEN* ( ty-1 , tx-1 ) =88 THEN BEEP .005,30: RETURN 
;.blO IF ty-KO OR tx-KO THEN RETURN 
0620 LET ty=ty-l: LET tK=tK-l: RETURN 

2700 IF CODE SCREEN* (ty-l,x)=88 THEN BEEP .005,30: RETURN 
2710 IF ty-KO THEN RETURN 
2720 LET ty=ty-l: RETURN 

6000 PRINT ''❖*<■■5 4 !>!>!>*!>*<>ZLO" ’ ’ "Upravl jas*pnBumatskim*cekicem, ❖❖ 
poitiocu*kojeg*moras*uni 5t i t i *zlogduha, *kDj i *se*kri je'''’i za* 

, ograda I ” 

6010 PRINT ’ "Cekic*5e*pravol ini j5kE5pomera,**ako*se*zaustavi*na 
ogradi*i 1 i *nai vici*ekrana*nepre5talno*nabi ja. " 

6030 PRINT ’ "Ceki c*pomocu-*ta5tera*5^5i *8******okrece5*u*pravcLi* 
odnosno*5upro-*tno*pravcu*kretan ja*kazal jke*na*casovni ku. " 
^ "Dobar*! DV* ! " : GO SUB 6900: RETURN 
6900 PRINT ’ ’ "Priti5ni*0*za*nastavak* ! " 

6910 IF INKEY*^!:>"0" THEN 60 TO 6910 
6920 CLS : RETURN 

9000 RESTORE 9100: PRINT AT 11,15; FLASH 1; INK FOR i=l 

TO 18: READ length, pitch: BEEP length , pi tch: NEXT i: PAPER 
0: CLS 

9010 PRINT ’ ’ "Unistio'i'ei^ZLO"' "****u*";go; "-Spoteza"’ ’ 

9020 IF go<h THEN LET h=go: PRINT "***To*je*najni z i '❖rezul at* ! ! ! 

9025 PAUSE 45: BEEF' .05,0: PRINT "Ponovo?* ( l'5'=*da, '■'0*=^*ne) " 

9040 IF INKEY*="" THEN GO TO 9040 

9050 IF INKEY*="1" THEN CLS : RESTORE : GO TO 100 

9060 IF INKEY*="0" THEN 60 TO 9990 

9070 GO TO 9040 

9 1 OO DAT A .2,0, ■ 1,0, .*,5, .❖,9, .❖,5, .z.,0, . 1,0:, .9 ,wj, ..;‘,9, . 0 ,^ 

9110 DATA .2, 9, .1,9, .3, 12, .2, 9, .1,5, .3,0, .3,0, .6, 5 
9990 F'RINT ’ ’ ’ "❖■«**Na*zdravl je* ! ” : STOP' 

9999 CLS : RETURN 
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Ova stvarCica je prilidno duga, ali dokazuje da se i u 
bejsiku mo±e da napravi iepa grafidka arkadna igra- Neki efekti 
udinili su nam se tako dobri da smo program uvel i u knjigu 
uprkos dugotrajnom kucanju. Narodito je zanimljivo kada pe^ak 
prelaskii mosta padne u vodu, pa ga spasavaju pojasom za 
spasavanje. 

Cilj igre je predi reku- Pretpostavi te da je rat i da su vam 
sru^ili most. U duhu modern© tehnike i op^tenarodne odbrane iz 
helikoptera spuState delove konstrukcije mosta. Ako deo mosta ne 
ispustite u pravom trenutku, ved podignuta konstrukcija pada u 
vodu- Siroti pe^ak ved je u ratu oslepeo i misli da je pred njim 
most. Bezbriino zakoradi u vodu. Onda mu se dobace tri pojasa za 
spasavanje, a on se iz dista mira — utopi f 

Stepen teiine moiete da birate. Savetujemo vam da bar u 
podetku vedbate na lak^im stepenima, jer de inade biti suvi^e 
mrtvi h . 

U programu je ugradena i mogudnost pamdenja rekorda (iz 
inostranih igara dobro poznati "high score"). Tako da u lestvicu 
besmrtnih moiete da upi^ete i svoje ime. 

Skredemo vam painju na mno^tvo grafidkih znakova u listingu. 
Ispisani su u kurzivu, tako da sa samim ukucavanjem programa ne 
bi smelo da bude nikakvih problema. Od 9000. reda dalje deka vas 
dugi niz instrukcija DATA kojima dete puniti gra-fidke znakove- 
Ako zatelite da u igri ne^to promenite, savetujemo vam da u 
prvom redu popravite potprogram koji va^eg pe^aka pomeri u kobni 
korak . 


.V 
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1 60 SUB 9000 

2 IF INKEY*="*” THEN GO TO 9 

4 DIM h(10): DIM h»(10,10): BORDER 1: POKE 23693,56: CLS 

5 FOR z=l TO 10: LET h* (z ) ="NIK0" : NEXT z 
7 GO TO 4000 

9 LET dm=0: POKE 23624,141: BEEP ,3,-10: BEEP .1,-3: INPUT 
AT 0,0i"STEPEN*TEZINE*?<>(l-10)*10=TESK0"’"?'';k: BORDER 1 
10 IF NOT dm THEN PAPER 5: CLS : PRINT AT 10,0; INK 0; INK 0; " 
<SPACE>=*spustis*deo‘’mosta" 
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NEXT 


11 FOR x=l TO 10: FOR z=x TO x+50 STEP 10: BEEP .01,2: 

NEXT x: BORDER 0: PAPER 6: INK 0: CLS 

12 IF dm THEN LET k=0: PRINT #0; INK 5; "DEMO--" ; INK 4; 
pr i t i sn i *5p<'2 a*5tar t " 

14 IF NOT dm THEN PRINT #0; PAPER 1; INK 6; "STEPENi'TEZINE:'^" 
;k; : LET k=ll-k 

40 PRINT AT 0,0; PAPER 3; INK 7; "*M0ST*<>*«P0ENI*0<>*»*«B^^ 
";h<l) 

50 FOR 2=21 TO 18 STEP -1: PRINT AT z,0; PAPER 1;: NEXT z: 
PRINT AT 17,0; INK l;"/.i"; PAPER PAPER 6;" 

LLLLLLLLLLUULLLLLLLLLLLL"-, PAPER 1;"'>"; PAPER 6}"LL“ 

60 FOR z=6 TO 2 STEP -1: PRINT AT 15+z,0; PAPER 4;TAB z; 
INVERSE 0; PAPER'S; INK 4;"S";AT 15+z , 31-z ; " J " ; PAPER 4: 
NEXT z 

70 FOR z=0 TO 4: PRINT PAPER 8;AT IS-z , 0; "£££££££" ( TO z);"B 
;AT 18-z, 31-z; "11"; '•£££££££" ( TO z ) : NEXT z 

75 PRINT PAPER 7; BRI6HT 1; INK 0;AT 13, 0; "££££££"; AT 13,26; 
££££££■' 

76 FOR z=3 TO 7 STEP 2: PRINT AT 2,27; "«N0": NEXT z 

80 LET n=5: LET s=0 

81 LET lv=3 

82 FOR z = l TO n-1: PRINT AT 1 1 , z ; "-s-I " ; AT 12,2;"*«": NEXT z 

83 IF n=25 THEN GO TO 1000 

84 LET d=l: LET h=0 

85 INK 0 

100 FOR a=29 TO 0 STEP -1 
110 PRINT AT 10,a;"AB*" 

119 FOR j=l TO k 

120 IF d=l THEN IF INKEY$="<>" THEN 60 TO 200 

121 NEXT j 

122 IF dm THEN GO SUB 2: IF a=n THEN IF RND>. 1 THEN GO SUB 200 
130 NEXT a 

135 PRINT AT 10,0;"«" 

137 IF h=n THEN PRINT AT ll,n;"*J";AT 12, n; : LET n=n+l: 

LET, 5=s+INT ((ll + k)/2) + (k = 10): PRINT AT 0,16; PAPER 3; INK 
7;s: GO TO 83 
140 GO TO 300 
190 STOP 

00 LET d=0: IF aOn THEN LET 1 = 16 
10 IF a=n THEN LET 1=13 
220 IF a<n DR a>n THEN LET 1=12 
250 FOR z=12 TO 1 

260 PRINT AT z,a+l;"£";AT z-1 , a+1 ; 

270 NEXrz: PRINT AT l,a+l; PAPER 7;"£" 

275 IF-aOn AND (a>n AND a<25) THEN PRINT AT z-1 , a+1 ; ''-S'" 

276 LET ■h=a 
280 GO TO 130 

320 PRINT AT 1 1 , n; ; AT 12,n;"*";AT 1 1 , n+l ; "T " ; AT 12.n+l;"//" 
340 FOR z=l TO 5 

355 BEEP .1,50: PRINT AT 1 1 , n+1 ; "T " ; AT 12,n+l;"tf" 

357 BEEP .1,0: PRINT AT 1 1 , n+1 ; "K" ; AT 12,n+l;"J" 

360 NEXT z 

377 PRINT AT 1 1 , n + 1 ; "•s " ; AT 12,n + l;"<>" 

378 PRINT AT 15, n + 1 ; ; AT 16,n + l;"A'" 

380 PRINT AT 15, n + 1 ; "U‘>PDMOC" : FOR 2 = 1 TO 5: PRINT AT 16,n-H;" 
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I": BEEP .1,0: PRINT AT 16, n + 1 : BEEP .1,10: NEXT 2 : 
PRINT AT 15,n + l; 

385 LET lv=lv-l 

386 IF Iv=-1 THEN GO TO 2000 

387 GO SUB 900 

390 PRINT INK 2; PAPER 6; FLASH 1 ; AT 10, 8; " JOS? " ; 1 v; "«Z I VOTA* ! 

395 FOR x=l TO 10: FOR 2 =x TO x+50 STEP 10: BEEP .01,2: NEXT 2 : 
NEXT X 

397 PRINT AT 10,8,, AT 15, n+2; AT 16,n+l;"<>'' 

398 FOR 2=0 TO 4: PRINT PAPER 8:;AT 18-2 , 31-z ; "U“ ; "££££ £££" ( 

TO i): NEXT z: PRINT PAPER 7; BRIGHT 1; INK 0;AT 13,26;“ 
FFFFF" 

399 BO TO 82 

900 INK 2: LET d=3+(lv*2) 

905 PRINT AT 15, n+1 ; 

910 FOR 2=27 TO n+1 STEP -1 

920 PRINT PAPER 8;AT d,2; INK 2-, "MHO" 

922 PRINT AT d , z ; “ o** " 

925 BEEP .01,2 
930 NEXT 2 

935 FOR 2 =d TO 1 STEP -1: PRINT AT 2 , n+1 ;“«£<>“ : NEXT z 
940 FOR z=d TO 16 

950 PRINT AT z , n+1 ; "WTO " ; AT z-l , n+1 “ 

955 BEEP .01,2 
960 NEXT z 

965 FOR 2=15 TO 1 STEP -1: 

967 PRINT AT z , n+1 ; "WSO" ; AT z+1 , n+1 ; "***" 

968 BEEP .01,2 

969 NEXT z: FOR z=n+l TO 0 STEP -1: PRINT AT 1 , z ; “MO'S " : NEXT 

970 FOR z=2 TO 12: PRINT AT z , 0; "WOO" ; AT z-l , 0; “<>£*“ : BEEP .01, 
z: NEXT z 

980 PRINT AT 11,0; INK 0; : FOR z=9 TO 1 STEP -1: 

PRINT AT z',0;"«N0" ’■'«>*": NEXT z 
985 PRINT AT 1,0;"«**'' 

990 INK 0: RETURN 

1000 FOR z=25 TO 30: PRINT AT 1 1 , z ; “*1 “ ; AT 12, z; "<>//": BEEP .01, 
z: NEXT z 

1001 INK 1: PRINT AT 11,31;“0";AT 12,31;"*“ 

1010 FOR z=0 TO 29: BEEP .001,33: PRINT INK 1;AT 12,z;"50* 
POENA*ZA*ZAVRSEN*MOST<>*****i**" (z + 1 ) ; “CS" : NEXT z 
1020 PRINT AT 12,29; "ge*" 

1030 PRINT FLASH 1;AT 12,0; OVER 1; INK 8,,: FOR z=l TO 5: LET 
s=s+l: PRINT FLASH 1; PAPER 1; INK 7;AT 16,30;: BEEP .01,- 
z: NEXT z: PRINT PAPER 3; INK 7;AT 0,16;s 
1040 PRINT AT 12,0,,: PRINT AT 13,6;TAB 26; 

1100 LET n=5: GO TO 82 

3000 LET n=n+l: FOR z=17 TO 20 

3010 PRINT PAPER z-16; INK 7; AT 15, 10; “PLJUSK"; PAPER 8; AT 2 -I, 
n;“*";AT z,n;“Z“;AT z+l,n;"J“: BEEP .1,22-z 
3015 PRINT PAPER 1 ; AT z,n; INK 7; “A": BEEP .1,21-z 
3020 NEXT 2 

3030 BEEP .1,48: BEEP .1,36: BEEP .1,24: BEEP 1,12: BEEP .2,0: 
3040 PRINT AT 20, n; PAPER 1; INK 7;“J“ 
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..‘050 
3060 
3070 
3080 
3 1 00 
3 no 
3120 
3135 
3137 


3140 

3142 

3160 

3170 


3172 

3173 
3175 


3180 

3190 

3200 

3210 

3215 

3220 


3230 

3240 

4000 


4010 

4020 

4030 

4040 

4050 

4070 

9900 

9902 

9904 

9906 

9908 

9910 

9912 

9914 

9916 

9918 

9920 

9922 

9924 

9926 

9928 


PR I NT AT 1 0 , 1 1 ; I NK 1 ; " KRAJ* I BRE ; AT 10,11;" DEMO " AND dm 

FOR z=i TO 300: NEXT 2 

CLS 

IF dm THEN GO TO 4000 
FOR 2=1 TO 10 

IF 5<=h(2) THEN NEXT z: 60 TO 4000 

PRINT "IMASC'DANASS'NAJBOLJISREZULTAT. "UPISI<‘SVOJE*IME. " 

LET c=21: LET 2 $=''?ABCDEFGHI JKLMNOPQRSTUVWXYz 

LET h*(10)="'': LET 2 $= 2 $+ 2 $: PRINT AT 1 1 , 16; ; AT 10,16; 

PAPER 4;":'''; PAPER 7; AT 15, 10; " " 

FOR 2=1 TO io 

PRINT AT 15,10+z; PAPER 7; INK 5; FLASH l;"s" 

PRINT AT 10,0; PAPER 6 ; 2 *(c TO c+26) 

PAUSE 0: LET c=c+ ( INKEY$=“ 8 " ) - ( INKEY*=‘'5" ) : IF c>34 THEN 
LET c=l 

IF c<l THEN LET c=34 
IF INKEY$=CHR$ 13 THEN 60 TO 3190 

IF INKEYf="0'' THEN LET hf ( 10, z ) = 2 $ (c + 16) : PRINT PAPER 
7; AT 15, ll;h$(10) : FOR x=l TO 50 STEP 10: BEEP .01,X! NEXT 
x: NEXT z: 60 TO 3190 
GO TO 3160 

LET h(10)=5: PRINT AT 15,11; FLASH 1; INK 2; PAPER 6;h$(10) 

LET F=0 

FOR 2=1 TO 9 

BEEP .005,2 

IF h( 2 )<h( 2 +l) THEN LET t=h( 2 +l): LET h( 2 +l)=h( 2 ): LET h( 2 ) 
=t: LET af=h$( 2 +l>: LET h$ (z+1) =h$ (z > : LET h$( 2 )=at: LET 
F = 1 

NEXT z 

IF f=l THEN GO TO 3200 

CLS : PRINT INK o’ i 

PAPER 1; INK 7; "**»«DANAS‘>NAJBOLJ I'5'>REZULTAT*<’«*" ’ 

«'U90V0 J* I GR I * i " 

FOR 2=1 TO 10: PRINT AT 2+4, 5; h (z ) ; TAB 18;h$(2): NEXT 2 
PRINT AT 20,2; FLASH 1; INK 2; "PRITISNI*<SPACE>'5ZA'5pOCETAK" 
FOR 0=1 TO 5: FOR z=l TO 7 

FOR x=l TO 10: PRINT AT x+4,5; PAPER z; INK 9; OVER 1 ; TAB 
29; : IF INKEY$="«" THEN GO TO 9 
NEXT x: NEXT 2 : NEXT o 
LET dm=l: GO TO 10 

FOR z=USR "a" TO USR ''u''+7: READ x: POKE z,x: NEXT z 

DATA 127,2,31,55, 103, 103,6S,31 

DATA 240,1,131,255,255,240,224,192 

DAT A 0 ,,0 ,15, 28 , 63 , 63 , 63 , 1 2 

DATA 255, 138, 140, 136, 240, 160,192,128 

DAT A 255 , 1 36 , X , X , 255 , 1 36 , x , x 

DATA 255,x,x,x, 153, 189,219, 153 

DATA 0,x, 128, 192,252,x,x,48 

DATA 153,24,24,28,22, 18,226, 131 

DATA 0,x,60,90, 126,24,60,218 

DATA 24,x,x,x,60, 102, 195, 129 

DATA 0,x,60,90, 126, 153, 126,24 

DATA 195,231,255,x,x,x,x,x 

DATA 15,63, 124, 224, x , 124, 63, 15 

DATA 255,x,0,x,x,x,255,x 
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9930 DATA 240,252,62,7,7,62,252,240 
9932 DATA 52,44,36,36,52,44,36,36 
9934 DATA 60, 90, 126, 24, 60, 218, 255, x 
9936 DATA 121,103,97,97,121,102,0,0 
9938 DATA 224, >i , 240, x . 248, 252, 254, 255 
9940 DATA 7,7,15,15,31.63,127,255 
9942 DATA 255,72,40,16,7,4,2,1 
9998 RETURN 
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2733 

Ova igra jedna od najpopularni jih u kockarnicama 4irom sveta, 
u SAD naziva se black-jack. Kao Sto ste u opisu programa Kazino 
mogli da proditate, Jugosloveni ne smeju da igraju u 
kockarnicama u svojoj zemlji, ali zato mogu de se bave 
radunarskim hazardnim igrama... 

Radunar deli karte i daje vam onoliko karata koliko ielite. 
Cilj igre je pribliditi se 4to vi4e ukupnom iznosu 21, ali ga ne 
predi . Va4 protivnik (radunar) nastojade, razume ee, da bude 
bol j i . 

U redovima od 10-50. i ni ci jal i zuju ee promenljive. Ako nemate 
dovoljno para, onda u obzir dolazi i red 60. Od 70. do 410. reda 
sme^ten je glavni deo programa, u kom je najvadnija petlja od 
170. do 250. reda. U 310. redu program izvude i nacrta kartu, a 
od 540. do 650. nacrta povedanu sliku karte. Tu povedanu sliku 
ameeti u detiri grafidka znaka (UDG) : gornji deo u a i b, a 
donji u c i d. U 550. redu briSete definiciju znakova i u 560. 
potradite kako je znak definisan u ROMu. U prirudniku pi^e da je 
svaki znak iz spectrumovog seta znakova sastavljen od 64 tadke 
rasporedene u kvadratidu 8x8 tadaka. U 570. redu podinje petlja 
koja tede preko evih osam redova tog znaka. U 580. i 590. redu 
petlje pretvara decimalnu vrednost detinicije u vrednost koju 
program kasnije udita u oba UDG znaka. 

Zadatak: zaista dobrom gra-fidkom re^enju u programu te4ko 
mode bilo ^ta da se doda. Modda ne bi bilo lo^e ispraviti tok 
igre, jer nije poSteno da uvek igru podinjete vi , a tek onda 
eredu oproba i radunar. Modda bi trebalo omoguditi i promenu 
uloga, zavisno od karata koje dobijete. Tako bi igra poetala jo% 
slidnija onoj u kojoj 5U mnogi prokockali divot. 

10 BORDER 7: PAPER 7: INK 0: OVER 0: CLS 
20 LET b$="N23456789TAJaK" 

30 LET a=0: LET {n=100 
40 GO SUB 420 
50 DIM p(4) 

60 IF m=0 THEN PRINT AT 10, 1 ; " lmas">$0" ; AT 19, 1 ; " Iz vi ni , *vi 
ne*da je(n*na********poveren je. ^Dod ji*pDnovo*kada****budes* 
imao*vi5e*para. STOP 

70 CLS : F'RINT AT 10, 1 ; ” Imas'!’->$" ; ill! PRINT "Kol i k:o'''Ul azes?" 

80 INPUT b 
90 CLS 

100 IF b>m THEN 60 TO 70 
110 LET m=m-b 

120 PRINT INK 0;AT 0, 0: ”TV0JE*KARTE" ; AT 1 1 , Oi "SPECTRUMOVE* 

KARTE" 

130 PRINT AT 9, 1; "Zbir="! AT 20,l;"Zbir=" 

140 FOR i=2 TO 1 STEP -l' 

150 GO SUB 310 
160 NEXT i 
170 FOR i=l TO 2 
180 LET a=p(i)=ll 
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190 IF i=l THEN INPUT FLASH 1; PAPER 2; INK 7; " Zel i B*! i *jo5* 
jednu'-'kartu?''-*'" ; af : LET : IF a$(I) = ''n" THEN 60 I'O 

250 

200 60 SUB 310 

210 IF p(i)>21 THEN LET i=2: 60 TO 250 
220 IF p(i+2)=5 THEN 60 TO 250 
230 IF i=2 AND p(i)>16 THEN GO TO 250 
240 GO TO 190 
250 NEXT i 

260 IF p(l)<=21 AND p(3)=5 AND (p(2)<>21 OR p(4)<>2) THEN 60 
TO 290 

270 IF p(l)=21 AND p(3)=2 AND (p(2<>21 OR p(4)<>2)) THEN LET 
b=b*1.5! PRINT FLASH 1;AT 5, 18; "BLACKJACK" : 60 TO 290 
280 IF (p(2)<=21 AND p(2)>=p(l)) OR p(l)>21 THEN LET b=0 
290 LET m=m+2*b 
300 60 TO 40 
310 LET p(i+2)=p(i+2>+l 
320 LET c=INT (13*RND)+2 
330 IF c=ll THEN LET a=a+l 
340 LET p(i)=p(i>+c*(c<12>+10*(c>ll) 

350 IF p(i)<:Z2 OR a=0 THEN GO TO 380 

360 LET a=a-l 

370 LET p(i)=p(i)-10 

380 60 SUB 500 

390 60 SUB 540 

400 PRINT INK 0;AT 1 1 *i -2, 9; p (i ) 

410 RETURN 

420 DATA 0,78,209,81,81,81,78,0 
430 DATA 102,255,255,255,126,60,24,24 
440 DATA 24,60,126,255,255,126,60,24 
450 DATA 24,60,126,255,255,219,24,60 
460 DATA 60,60,219,231,231,219,24,24 
470 RESTORE 420 

480 FOR K=USR "e" TO USR "e"+39! READ k: POKE k,;;: NEXT k 
490 RETURN 

500 LET p=ll*i-7: LET q=6*p(i+2)-5 

510 INK 5: PRINT AT p-3,q; " • • " : FOR k=l TO 5: PRINT AT p-3+ 

k,q; "»»***• ": NEXT k: PRINT AT p+3,q; : INK 0 

520 LET 5uit=l+INT (4*RND) : INK 2*(5uit<3): PRINT AT p-2,q+ 
3;CHR$ (148+5uit) 

530 RETURN 

540 LET k=USR "a" 

550 FOR k=0 TO 31: POKE >!+k,0: NEXT k 

560 LET s=8*C0DE b»(c)+15360: IF b*(c)="T" THEN LET 5=USR "e" 
570 FOR j=0 TO 7: LET v=PEEK (s+j): LET c=0: LET d=256 
580 FOR k=8 TO 1 STEP -1: LET d=d/2: IF v>=d THEN LET c=c+3*d* 
d: LET v=v-d 
590 NEXT k 

600 LET h=INT (c/256): LET l=c-256»b 

610 POKE x,h: POKE K+l,h: POKE x+8,1: POKE x+9, 1 

620 LET x=x+2+8»(j=3) 

630 PRINT AT p, q+2; " AB” ; AT p+l,q+2;"CB" 

640 NEXT j 
650 RETURN 
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3980 

Program tete brzo ukucati, a ako volite igre na sretu, bite i 
zabavan. Nastao je Jednoga dosadnog popodneva, kad su se u 
Portoroiu, metropoli slovenaCke obale, sakupili momci i zaieleli 
da u hotel u Metropol zaigraju rulet. PoSto nisu imali 

janstvo koje bi im omogudilo da sednu za kockarski sto, 
okrenul i su se svojim spectrum! ma i nap! sal! ovo programde- 

O tome kako da i grate ne treba vam posebno obja^njenje, po^to 
radunar stalno zapitkuje. Kao i u svakoj hazardnoj igri 1 ovde 
je bitno domodi se Sto vede sume novaca. NaS rulet je 
jednostavni ji od klasidnog: treba da pogodite koji de broj 
izmedu O i 9 Izabrati radunar. To postiSete logidkom Tunkcijorn, 
tako da eventualni pogodak oznadite sa a; ako npr. mislite da de 
broj bit! vedi od, 5 prognozirajte a>S. 

Kazlno nije samo igra, nego omoguduje onima koji ne znaju 
dobro logidke funkcije da o njima neSto i naude, ako budu deleli 
da dobiju neSto para. Razume se, dobitak zavisi od uloSenog 
novca i verovatnode da nek! broj bude pogoden. 

Radunar uvek zaokrutuje u svoju korist, tako da i banka neSto 
zaradi. Radi pomodi igradima a sebi na Stetu, iznad brojki crta 
diagram s oznakama koliko desto je svaki od njih bio izvuden. 
Dakle, kladidete se na brojke koje ved dugo nisu bile na redu- 
U 7000. redu program ispiSe uputstva. U 1001. redu prikazan 
je zanimljiv nadin preglednijeg pisanja programa u bejsiku. Na 
pojedine vatnije delove programa ne pozivamo se brojkom reda 
nego promenl ji voms 3000 PRINT, 2000 INPUT, 1033 2DREB i 3500 
DOBITAK. 

Razume se, kazino mode i da se poboljSa. NeSto veStiji 
programer mogao bi da ga prepravi tako da jedan od igrada bude i 
^^^Linar. Ako neko poSalje neki zanimljiv dodatak programu, u Mom 
mikru demo ga objaviti sa zadovol jstvom. 

1 RUN 7000 
3 60 TO 1029 

999 PAF'ER 4: CLS : BORDER 4 

1 000 DATA 3000 , 2000 , 1 033 , 3500 

1001 RESTORE 1000: READ print, input, zreb, dobitak 

1002 LET aa=l 
1005 DIM z(lO) 

1010 FOR n=2 TO 7: PRINT AT 0,0; PAPER 6; 

. |\jext n 

1011 PLOT 0,113: DRAW 0,50: 

1012 PLOT 255,113: DRAW 0,50: 

1015 DIM i(ni): FOR n=l TO ni: LET i(n)=500: NEXT n 

1019 DIM y$(ni,32) 

1020 DIM s(ni): DIM v(ni): DIM d(ni) 

1021 PLOT 0,113: DRAW 255,0 

1022 PRINT AT 0,0; F’APER 5; "T?<T'^'SoFtware*'^'^^*'^**'^'^‘^^'=^PTZ~1983'' 

1023 PRINT AT 1,0; INVERSE 1; INK' 1; 

J^A-t-S" 

1025 PRINT AT 8,0; PAPER 1 
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1027 PLOT 0,102: DRAW INK 1; 255,0 

1028 FOR n=0 TO 9: PRINT AT 8,2+3*n; PAPER 4;n: NEXT n 

1032 FOR a=0 TO 9: PRINT AT 8,2+3*a; PAPER 6; a: NEXT a; RETURN 

1053OREN<‘ZREB 

1034 PRINT AT 8,2+3*aa; FLASH 0; PAPER 8;aa: PAUSE I+RNDCIO: 
FOR n=l TO 30 

1035 LET a=INT (RND*10): PRINT AT 8,2+343; INVERSE l;a 

1036 BEEP .02,n 

1040 IF RND>.6 AND n=30 THEN LET n=n-l: PAUSE 30: BEEP .01,-40 
1042 PRINT AT 8,2+3»a; INVERSE 0; PAPER 6; a 
1050 NEXT n 

1052 PRINT AT 8,2+3*a; FLASH l;a 

1054 LET aa=a 

1055 LET 2 (a+l)=z (a+l)+l 

1056 PLOT (16+a»24) , 113+2*2 (a+1) : DRAW 8,0' 

1060 RETURN 


1499'->REM’> VER0VAT 

1500 PRINT AT 9+n,0; PAPER n; INK 9; 

1505 LET v(n)=0: FOR a=0 TO 9 
1510 LET v(n)=v(n)+VAL s* 

1515 IF VAL 5* THEN PRINT AT 9+n,2+3*a; PAPER 8; INK 9; 

BEEP .03,-20 
1520 NEXT a 
1540 return 


2000<’REN<> INPUT 

2001 FOR n=l TO ni: IF KnXl THEN 60 TO 2010 


2002 INPUT INVERSE l;<i$(n,l TO ) > ; "«'ula2es*$";s(n) : LET sin) 
=INT sin) 

2003 IF iln)-sln)<0 THEN 60 TO 2002 

2004 IF sln)=0 THEN LET dln)=0: 60 TO 2010 

2005 INPUT INVERSE l;"Tip«-:a"; LINE s$: IF s$ 1 1 ) = " *STOP* " THEN 
RUN 7000 


2006 LET s*=’'a"+s$ 

2007 IF s*="ap" THEN LET s$="a/2=INT* la/2) " 

2008 IF s$="an" THEN LET st=''a/2<>INT* la/2) " 

2009 LET y$ln,l TO ) = '■ i**********^ *■»<■'■!>****■:><>*<><>* LET y$I 

n,l TO )=s*: 60 SUB 1500 

2010 PRINT AT 21-n, 12; PAPER 8; INK 9;sln): BEEP .05,-40: NEXT 
n 


2020 RETURN 


30QO<^REM'^ Dri nt 

3005 PRINT AT 21,0; PAPER 4; " Ime***<'*****Ulog*'**Dobitak*Suma'' 

3010 FOR n=l TO ni 

3015 LET i In) = ^iO^’ i In) +d In) -s In ) 

3020 LET sln)=0: PRINT AT 21-n,0; PAPER n; INK 9;i*ln,l TO ) 
;TAB 12;sln);TAB 19;dln);TAB 27;iln);TAB 31;''<>'' 

3030 NEXT n 
3040 RETURN 

3.500<»REM» dobici 
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3510 FOR i=l TO ni 
3520 LET 5$=y$ti,l TO ) 

3530 IF VAL s* AND ABS v(i)>0 THEN LET d(i)=INT (s ( i ) /v ( i ) » 10) : 
PRINT AT 9+i,0; FLASH 1;"!" 

3531 IF ABS v(i)=10 THEN LET d(i)=-2 

3533 LET dd=0 

3534 PRINT AT 21-1,19; INK 8; PAPER 8; "<>■»<><>" 

3535 FOR n=0 TO 9 

3536 IF ((SCREEN$ (9+i , 2+3*n ) = "'■" ) AND ddXXD THEN BEEP .05, 
20: LET dd=dd+ <d d ) /v ( i ) ) : PRINT AT 21-1,19; PAPER 8; INK 
9;INT (dd) 

3537 PRINT AT 9+l,2+3*n; PAPER 8; INK 8;"*" 

3539 NEXT n 

3540 NEXT 1 
3550 RETURN 

7000 BORDER 1: PAPER 1: INK 9: FLASH 0: CLS 

7010 FLASH 1: LET f $='''>'!>WELCONE-WILKOMMEN-BENAyENUTI »<:-" : PRINT 
AT 0,0;: GO SUB 8000 

7020 PRINT INVERSE 1; PAPER 2; "CASINO*«byS jamaica<‘Rum‘> 
SOFTWARE": PRINT : 

7021 FLASH 0 

7030 LET P$="<'-5 :' vSl edecu - igruSmoze'-’l grat I**' "■!'*dD-)'5*l graca. 

pigj- j0 q j ednostavnoj*! grl '>'■** ■■">na*5recu , 
kojo_r---TacLinar i :abere®broj '*0-9. 5 Igrac'imoie*!- *'*kao* 

mogucnl 'dgodi tak'-’najaviti bi lo kojl*braj '-'l ■■’to-tako, 
'■■5'*da'-'pogodak*02nac'''sa*' a' *npr . . a>5, a<2*AND*a>6. 

ap’ j-naci _ g an ’ *neparnl -’brQ.i " 

7031 GO SUB 8000 

7035 LET 9$=" Vel 1 cl na-'-dobl tka*l 2racuna****?'5e-'’S”obz 1 romi-na* 
verovatnost '’pogotka" 

7036 GO SUB 8000 

7040 LET -f $="<’'><’'>a*ST0P3---<'‘nDva" l gra" : GO SUB 8000 

7050 INPUT "Broj-'lgraca'’)" ; nl : IF nl>5 OR nl<l THEN RUN 7000 

7055 DIM 1$(10, 10) 

7060 FOR n = l TO, nl 

7070 INPUT "Iffles-lgraca-:’"; (n) ; "*>*";!$ !n, 1 TO ) 

7080 NEXT n 

7100 GO SUB 999 

7110 60 SUB print 

7120 GO SUB Input 

7130 60 SUB ireb 

7140 DIM d<ni): GO SUB dobltak 

7150 GO TO 7110 

8000*REM*FLASH 

8010 FOR n=l TO LEN +$ 

8013 IF CODE ■f$(n)<>32 THEN BEEP .01,-20: 

8015 PRINT ; PAPER 8; INK 9;ft(n); 

8016 IF CODE ■f$(n)=32 THEN PAUSE 2 
8020 NEXT n 

8030 PRINT : PRINT : RETURN 
9000 SAVE "ZT'S-KAZINO" LINE 7000 
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2473 

Veoma je prijatno b kolegam u zadnjoj klupi u razredu igrati 
Cetiri u redu. Ako to radite kod kude, uitededete neSto papira, 
jer tablu za igru nacrta ratunar. 

Korisnost takvog programa prilidno je ogranidena. Li svakom 
sludaju dobra je polazna tadka za razmiSljanje o tome kako 
postidi da radunar nastupi kao protivnik protiv drugog igrada. 

Program je snabdeven sa skromnom gra-fikom i osnovnim 
kontrolama. Sam otkrije kad jedan od igrada postavi detiri u 
horizontalan, vertikalan ili kosi red. Dakle, u vezi s 
poboljianjem nede biti problema. 

r [ zj I I zj I zj I z| 1 Z!| 

n ra [31 n 

[31 [31 [31 131 [31 [31 [31 

[3 [31 [3 [3 [31 [3 [3 

[3 [3 [3 [3 [3 n [3 

[3 [3 [3 [3 [3 [3 [3 

10 LET x=l: LET I$="XXX": INK 0: PAPER 7: CLS : DIM A(12, 13) 

20 LET S$=CHR* 144+CHR$ 145+CHR$ 146 
30 LET T$=CHR$’ 147+CHR$ 95+CHRf 148 

4 (j LEX U $ = ‘ ' 1> * <■' ' 

50 DATA 0,127,127,127,127,127,127,127 
60 DATA 0,255,255,255,255,255,255,255 
70 DATA 0,254,254,254,254,254,254,254 
80 DATA 0,128,128,128,128,128,128,128,255 
90 DATA 1,1,1,1,1,1,1,255 
100 FOR J=144 TO 148: FOR K=0 TO 7 
no READ A: POKE USR CHR$ J+K,A 
120 NEXT K: NEXT J 
130 FOR J=2 TO 17 STEP 3 
140 FOR K=2 TO 26 STEP 4 
150 PRINT INK 6; PAPER 0;AT J,K;St 
160 PRINT PAPER 6; AT J+1,K;T$ 

170 NEXT K: NEXT J 

180 PRINT INK 3!AT 0, 3; n«®*2***3***4S'**5*<>*6**«-7'' 

190 PRINT INK 7; PAPER X;AT 20, 1 1 ; " IGRAC*" ; X 
200 INPUT "KOJ I*STUPAC*C«j*D0S7*] ■>" ; A 
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210 IF AO I NT A OR A >7 OR A<=0 THEN GO TO 200 
220 LET C=(A-l)*4+2 

230 IF ATTR !2,C)<>6 THEN PRINT FLASH 1;AT 21 , 7; "STUPACO" s A; 

JE-S'PUN": 60 TO 200 
240 PRINT AT 21,7;U$ 

250 FOR J=0 TO 18 
260 LET Z=ATTR (J,C) 

270 PRINT AT J.C; PAPER X; INK 7;I$ 

280 IF J=2 THEN PRINT INK 3:AT J-2,C;CHR$ 32;A;CHRi 32 
290 IF J;-2 AND Z=6 THEN PRINT PAPER 6;AT J-2,C;Ti 

300 IF J>2 AND Z=48 THEN PRINT AT J-2, C; 

310 IF J>2 AND Z=5S THEN PRINT INK 6; PAPER 0;AT J-2,C;S$ 

320 IF j=18 DR ATTR (J+2,C)=23 OR ATTR (J+2,C)=15 THEN BEEP 0. 

1,-20: 60 TO 350 

330 IF Z=48 THEN FOR P=1 TO 4: BEEP 0. 05, (20-2*J ) +P: NEXT P 
340 NEXT J 

350 LET L=J/3+3: LET C=A+3 
360 LET A(L,C)=X 
370 FOR J=-3 TO 0 

380 IF A(L+J,C)=X AND A (L+J+l , C) =X AND A(L+J+2.C)=X AND AiL+J+ 
3,C)=X THEN 60 TO 460 

390 IF A(L,C+J)=X AND AtL,C+J+l)=X AND A(L.C+J+2)=X AND A!L,C+ 
J+3)=X THEN GO TO 460 

400 IF A(L+J,C+J)=X AND A (L+J + l , C+J + 1 ) =X AND A (L+J+2, C+J+2 ) ’jX 
AMD A(L+a+3,C+J+3)=X THEN GO TO 460 
410 IF A(L-J,C+J).=X AND A ( (L-J ) -1 , C+J + 1 ! =X AND A ( (L-J ) -2, C+J+2) 
=X AND A( (L-J>-3,C+J+3)=X THEN 60 TO 460 
420 NEXT J 

430 LET I*=''000": IF X=2 THEN LET I$="XXX" 

440 LET X=X+1: IF X=3 THEN LET X=1 
450 GO TO 190 

460 PRINT OVER 1; FLASH IjiAT 20,11;U$( TO 8) 

470 PRINT AT 20,6; FLASH 1; INK X ; "POBEDIO*JE*IGRAC<'“ ; ( X ) 

480 INPUT ''J0S<JEDNU*IGRU<'9*"; A$: IF A$(l)<>"d'' THEN STOP 
49(1 F'RINT AT 2o., 6; 60 TO 130 
500 PRINT AT 21,0;U$;AT 21,16;U$ 

510 DIM a (12, 13): GO TO 130 
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Igra bi mogla da se zove i zvudni memo, po^to radunar zahteva 
od i gr ada da ponovi melodiju ili kombinaciju tonova koju on 
odsvira. Ako baS nemate dobar sluh, moiete to da pratite i 
vizuelno. 

Visina odsviranog tona Je brojka obojenog polja pomnodena sa 
10. Svetloplavo polje ima brojku 1, crveno 2, tamnoplavo 3 i 
zeleno 4. Kad radunar odsvira "kompoz i ci ju" do kraja ne odekuje 
pohvalu, nego reprizu. Pritiskajte tastere od 1 do 4 istim 
redosledom kao ^to je radunar to udinio pre vae- Cudete tonove i 
videti boje. Ako pri ponavljanju pogreSite, spectrum de vas na 
to odmah upozoriti i predloditi novu milozvudnu kombinaciju. 

U gornjem desnom uglu oznaden je stepen teiine (A= lak^i, B= 
tedi ) , a ispod toga broj kombinacija. 

Program je, sem 24 bajta, napisan u bejsiku. U redovima od 
210. do 250. radunar prodita maSinski kod i smesti ga na adrese 
od 65500 dalje. Ako program delite da ukucate u spectrum 16 k, 
potrebno je da program u ma^inskom jeziku pomerite nanide i 
zaboravite na ispis uputstava. 



10 BORDER 1: CLS : PRINT AT 10,10;' BRIbHT 1; FLASH 1 ; " s- 
MEMOBREAK*"; FLASH 0 
20 FOR N=1 TO 3: RESTORE 100 
30 FOR h=0 TO 47: READ A: BEEP .l.A 
40 NEXT M: NEXT N 
50 POKE 23658,8 

60 I NPUT “ -sUPUTSTVA-s-D* I L I oN*?';- " : F$ 

70 IF CODE F$>68 AND CODE F$<78'THEN GO TO 60 
80 IF CODE F$T68 OR CODE F$>78 THEN GO TO 60 
90 IF CODE F$=68 THEN 60 SUB 1440 

100 DATA 12, 15, 19, 15,0, 15, 19, 15,7, 10, 14, 10, -5, 10, 14, 10, 5,8, 12, 
8,-7,8,12,8,3,12,14,12,14,15,15,14 
110 DATA 12,12,16,12,16,19,19,16,12,11,12,7,4,2,4,0 
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120 LET L=1 
130 LET ST=4 
140 LET HD=1 
150 LET BD=1 

1 60''REM*ejLrtVN I'ipODAC I 

170 LET K=0 

180 LET Kl=l 

190 LET T=0 

200 RESTOE;E 250 

210 FOR N=65500 TO 65524 

220 READ A 

230 POKE N,A 

240 NEXT N 

250 DATA 33,64,64, 17,31,0, 14,8,229, 126,25,23,6,32,203,22,43, 16, 
251,225,36, 13,32,240,201 
260 PAUSE 20 

270'iREri<>+SK0C I -NACRTAJ + 

280 60 SUB 980 
290 DIM A (ST) 

300 LET K=K+1 
310 DIM B(ST) 

320 FOR N=1 TO ST 

330 LET M=INT (RND*4)+1 

340 IF M=5 THEN LET M=INT (RND*3)+1 

350 GO SUB 740 

360 LET A(N)=M 

370 NEXT N 

380 PAUSE 20 

390 FOR N=1 TO ST 

400 PAUSE 0 

410 LET A$=INKEY$ 

420 IF CODE A* >52 OR CODE Ai<49 THEN PRINT AT 21,2;"P0BRESAN* 
TASTERO-S’FONOVISSVE*!*": BEEP 1,-10: PAUSE 100: LET T=T-N: 
PRINT AT 21,2; 60 TO 390 
430 LET M=VAL A$ 

440 LET B(N)=VAL A$ 

450 60 SUB 740 

460 PRINT AT 6,24; PAPER 2; INK 7; BRI6HT 1;ST; PAPER 4; 

BRIGHT 1; INK 0;AT 9,24;T 

470 IF A(N)<>B(N) THEN PRINT AT 21 , 2; "GRESKA I flMASoSLABOS 

PAMCENJE*! ": BEEP 1,-I0'<i0t-: PAUSE 100: PRINT AT 21,2; "*<“> > 
<,***,>*,><>*<,******<, l_£-r bD=BD-1: let K1=K1-1: 60 
TO 290 

480 LET BD=BD+1: LET K1=K1+1: LET T=T+1 
490 NEXT N 

500 IF AD>10 AND BD>35 THEN LET ST=ST+1: LET BD=0: LET SF-.35 
510 LET AD=AD+1 

520 IF K=3 AND Kl>9 THEN LET SF-SP-.015: LET K=l: LET Kl=l 
530 IF ST=10 THEN GO TO 550 
540 PAUSE 35: GO TO 290 

550*REM'i-KRAJ'!'IGRE 
56(0 CLS 
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570 LET A*="**** :>USPEO»SI«—iCESTITAM* ! ****": LET 8=470: GO SUB 
920 

580 LET A$=":>RE2ULTAT:*"+STR$ T + "<>POENA* : LET B=0: GO SUB 
920 

590 FOR N=7 TO 24: PRINT AT 3,N;''ffl";AT 7,N;"e‘': NEXT N 
600 FOR N=3 TO 7: PRINT AT N,7;''0";AT N,24;"ffl": NEXT N 
610 PRINT AT 5,10; FLASH 1; BRIGHT 1; PAPER 7; '' s-CESTITAM* I !>" ; 
FLASH 0 

620 PRINT AT 10, 1 ; '‘iOSTAOOSAMSBEZ-J-RECIOALi SKAZEM'iTri'DA^IPAK* 
VAZ I ->DREVNA*POSLOV I CA , OOKO J A«K AZE : o ” ; I NK 2 ; " ovOooooo'MAL I 
COVEK-5'VEL I KAO-GLAVA'*** " 

630 PRINT AT 15,2; "NADAM':>SE*DA«CES*IGRICU':'ODIGRATI-sjOS*JEDNOM, 
Z ATO*TE*MOL IM'i'DAOpR I T I SNES‘>B I LO<'KO JU*6UM I CU<’ ! " 

640 PRINT AT 19, 1 ; "MNObD*SRECE-5\«BUDUCIM-:‘BORBAMA. " 

650*REM<>MELaDIJA 

660 FOR M=0 TO 15: RESTORE 1420 

670 FOR N=0 TO 9 

680 READ L,P:*REM<>NIJE»LONG*PLAY 

690 BEEP L,P 

700 IF INKEY*<>'"' THEN GO TO 720: *REM*AKO*NE*PRITISNES*TASTER, 
UDARICETE*KAp-» ! 

710 NEXT N: NEXT M 
720 60 TO no 

730*REM*P0TPRQ6RAt1*ZA'>SKAKANJE* 

740 IF M=1 THEN 60 SUB 790 
750 IF M=2 THEN GO SUB 820 
760 IF H=3 THEN 60 SUB 850 
770 IF M=4 THEN GO SUB 880 
780 RETURN 

790 PRINT AT 4,6; INK 5;''«";AT 5,6;''«": BEEP SP,t1*10: 

800 PRINT AT 4 , 6 ; " * " ; AT 5,6;” ” 

810 RETURN 

820 PRINT AT 4,17; INK 2;"«'';AT 5,17;"»': BEEP SP,M*10 
830 PRINT AT 4, 17; ; AT 5, IT;”*” 

840 RETURN 

850 PRINT AT 12,6; INK 1;”«";AT 13,6; BEEP SP,M*10 

860 PRINT AT 12,6;”*”;AT 13,6;"*" 

870 RETURN 

880 PRINT AT 12,17; INK 4;"B";AT 13,17;"«": BEEP SP,M*10 
890 PRINT AT 12, 17;”*”; AT 13,17;"*” 

900 RETURN 

9 1 0*REM*SAM0*MAL I *V I C 

920 FOR N=1 TO LEN A$: PRINT AT 2,31;A$(N) 

930 FOR M=0 TO 7: PAUSE 1: RANDOMIZE USR 65500 
940 NEXT M: NEXT N 

950 FOR N=0 TO B: PAUSE 1: RANDOMIZE USR 65500: NEXT N 
960 FOR N=0 TO 255: PRINT AT 2,0;”*": RANDOMIZE USR 65500: 

NEXT N: RETURN 
970*REM*bRAF I KA*EKRANA 
93o BORDER U: CLS 

990 FOR N=0 TO 31: PRINT AT 0,N;"»";AT 19,N;”»": NEXT N 
1000 FOR N=0 TO 21: PRINT AT N,0;"«";AT N,31;"«": NEXT N 
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1010 FOR N=23232 TO 23295: POKE N,0: NEXT N 

1020 FOR N=1 TO 7; PRINT AT N,23; PAPER 2; BRIGHT i ; "o*****;*” j 
NEXT N 

1030 FOR N=B TO 9: PRINT AT N,23! PAPER 4: BRIGHT 1 ; 

NEXT N 

1050 FOR N=ll TO 18: PRINT AT N,23; PAPER 1; BRIGHT 1 j "**<>*<.* v-s- " 
NEXT N 

1060 FOR N=2 TO 7: PRINT AT N,2; PAPER 5; " N, 13; 
PAPER 2; "■S'********": NEXT N 

1070 FOR N=10 TO 15: PRINT AT N,2; F'APER 1 AT N, 13; 

PAPER 4; "*■:>*<>*****": NEXT N 

1080 PRINT AT 2,24; PAPER 2; BRIGHT 1; INK 7; "STEPEN" ; AT 8,24; 

PAPER 4; BRIGHT 1; INK 0; "PQENI" 

1090 PRINT AT 12,23; INK 7; PAPER 1; BRIGHT 1;"MEM0'';AT 13,26; 
PAPER 1; BRIGHT 1 ; "BREAK" ; AT 15. 24; "M. HANC" ; AT 17,24;"a 
1985" 

1 1 00<’REM *UDG :> ( a , B , C , D ) 

1110 RESTORE 1180 
1120 FOR i=l TO 4 
1130 READ p$ 

1140 FOR g=0 TO 7 
1 1 50 READ a 
1160 POKE USR pf+g,a 
1170 NEXT g: NEXT i 

1180 DATA "a", 255, 254, 252, 248, 240, 224, 192, 128 
1190 DATA "b", 128, 192, 224, 240, 248, 252, 254, 255 
1200 DATA "c", 1,3,7, 15,31,63, 127,255 
1210 DATA "d", 255, 127, 63, 31, 15, 7, 3,1 

1220 PRINT AT 2,2; PAPER'' 7; ' INK 5;"C";AT 2, 10;",?";AT 7,2;"I!";AT 
7, 10; "ft" 

1230 PRINT AT 10,2; PAPER 7; INK 1;"C";AT 10, 10;"5";AT 15,2; "5" 
;AT 15, 10; "ft" 

1240 PRINT AT 2,13; PAPER 7; INK 2;"C";AT 2.21;"S";AT 7, 13; "C" 
;AT 7,21;"ft" 

1250 PRINT AT 10,13; PAPER 7; INK 4;'T";AT 10,21; "F"; AT 15,13;" 
0";AT 15,21;“ft" 

1260 PRINT AT 8,11; PAPER 7; INK 3; INK 8; BRIGHT 8;"CB";AT 9, 
ll;"eft" 

1270 PRINT AT 6,3; PAPER 7; BRIGHT 1; INK 0;"r';AT 6,14;"2";AT 
14,3;"3";AT 14, 14; "4" 

1280 FOR N=3 TO 6: PRINT AT N, 5; "**<>"; AT N, 16; “ » ■>*" : NEXT N 
1290 FOR N=ll TO 14: PRINT AT N, 5; "*«>" ; AT N, 16; : NEXT N 

1300 INPUT "*TE2INA!'AiILI*B**?*";X$ 

1310 IF X$="NISTA" THEN CLS : PRINT AT 10,3; FLASH 1 ; "PA*NISTA, * 
AKO*NECES!> ! " ; FLASH 0: STOP 

1320 IF CODE X$=65 THEN LET SP=.50: PRINT AT 4,24; INK 0; "A" 

1330 IF CODE X$=66 THEN LET SP=.35: PRINT AT 4,28; INK 0; "£" 

1340 IF CODE X$>66 OR CODE X$<65 THEN GO TO 1300 
1350 FOR M=1 TO 3: RESTORE 1420 
1360 FOR N=0 TO 9 
1370 READ L,P 

1380 BEEP L,P:<>REh«NIJE*LONG*PLAY 
1390 NEXT N: NEXT M 
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i HjO pause 300: RETURN 
I 4lO‘>REri*MELUDIJA* 

1420 DATA .2,9, ,2, 14, .2, 14, .2,9, .2,5, .2,7, .2, 11, .2, 11, .2, 14, .8, 


1 430-sREM'O|c4UPUTSTVA** 
i 440 ClS : BORDER 0 
1450 LET QW=1: LET CW=0 
1460 LET L$="':>" 

1 470 LET L$=Lt+''*<>**<-*'9<>4'4MEN0BREAK:>i**:'*«''S'**** 

1490 LET l$=L$ + ‘'9*****91’**':>**<>:’9*9*4*9*9****9*9*99-**9 

1500 LET L$=L$+"U*0V0J*lGRIiRACUNAR<>ZAHTEyA-:>*90D5IGRACA<>DA!>ZA7 
N J I M'SPONOV I ***-i'MELOD I JU<> I L I OKOMB I NAC I JU<’KO JU** JE'ipRE»T06A‘> 
ODSV I R AO . *4 ■* •' 

1510 LET L* =L* + " PR I S'TOME'i'UPOTREBL J A V A J ^GUM I CE'S-OD* 1 *D0*4 . * s oc-o*-;- 
1520 LET L*=Lt+'' 

1530 LET L*=L$+ " MNOGO*Z AE A VE<>U Z 9 1 BRU'S Z EL I ;> V AM** AUTORopROGRAMA** 
MARJAN'i'HANC. 

1540 LET L$=L$+"* 

1550 LET L$=L$+"PRITISNI*TASTER'>ZA<'START*IGRE:> ! *" 

1560 LET l$=L*+‘'*9*<’***9**«99*9*79:>*«***<>***<>9'' 

1570 FOR N=1 TO LEN L$ 

1530 PRINT AT QW, CW; L$ (N) ; AT QW,CW+1;" I" 

1590 LET CW=CW+1 

1600 IF CW>30 THEN PRINT AT QW,31;"*": LET QW=QW+1: LET 014=0 

1610 IF L$<N)<>"'>" THEN BEEP .02,30 

1620 NEXT N 

1630 PAUSE iJ: RETURN 

1640'!REM9M0ZES'>SPREMITI : 

1650 SAVE "MEMOBREAK" LINE 10 
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U uvoj taktidko.i igri rukovodite -fabrikom picta i trudite se 
da u prvoj polovini godine ona ima 4to povoljniji -finansijski 
rezultat. Va^ konkurent _1e spectrum koji de, razume se, probati 
da zaradi vi^e od vas. 

U prvom redu treba da odludite koliko pi da va^a -fabrika treba 
da proizvede i po kojoJ de ga ceni prodavati. Uzimaju se u obzir 
svi tro^kovi i sem toga treba jo4 i zaraditi koji dinar. VaSno 
je i da ne budete mnogo skuplji od konkurenta da se na -Fla^ama u 
skladi^tu ne bi sakupljala pra^ina. 

U programu su jo^ detiri uslova od kojih umnogome zvisi 
potra±n ja osve±ava judeg pi da: toplotni talas, talas hladnode, 
prognoziran pad prodaje i normalni uslovi prodaje. Ako budete 
pailjivi, s lakodom dete uspeti da nadmudrite radunar. Kao po 
pravilu va^a de blagajna na polugodi^tu biti punija od njegove. 
MoSda je za to kriv i spectrumov otac sir Klajv Sinkler (Clivtf 
Sinclair), koji se nije proslavio mudrim poslovnim potezlma. 
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10 BORDER 1: PAPER 6: LET c=i 
20 LET n=0: LET 1=0 

30 CLS : PRINT AT 10, 8; "ZEDJ*ZA*N0yCEM" 

40 PAUSE 150 
50 DIM m(12) 

60 60 SUB 1290 

70 INK 0: PRINT AT 14, 0; "■i-U*UPRAVI->SI-5Ty0RNICE*PICA. * 
VAsAFIRMAi'*JE<'KONK:URENCI JA*'>TV0RNICI ’ SPECTRUM’ . -i’TVOJ* 

Z ADA T AK , AK0<’G APR I H V AT I S , * •> J E* : I SPDSLOy AT I 

POLUGOD I SN J I *PR0F I T«VEC I « NEG0‘> iX'KONKURENT . " 

80 GO SUB 1380 
90 60 SUB 1290 

100 INK 0: PRINT AT 14,0; "'>ZA5TD:>yREME<’BICES:>P0STAyLJENi s*PRED' 
RAZL I C I TE'-ODLUKE . S'TVOJ A*fl";>*SP0S0BN0ST':>P0M0C I <>CE:’T I *PR I 
ODLUC I VAN JU 1 OL I K:0**'5 p I CA*<’*<> i pR0 1 ZVOD I T I '> I *P0*K0 JOJ * 

CENI'i-!’:':’ bn FPODAVATI." 
no 60 SUB 1380 
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120 F'AUSE 200: CLS 

1 30 INPUT "UPISIPIMEiTOuRNICE (MAXs lO'SLOVA) ***" ; z$ 

140 BEEP .05,10: BEEP .05,8 
150 PRINT AT 7, 10; ’'KONKURENTI'' 

160 PRINT AT 10, 10; r$; AT 12, 10; "SPECTRUM" 

170 BEEP .1,8 
Ib'O PAUSE 250 
190 CLS 

200 IF c>=7 THEN STOP 

210 PRINT AT 10, 12; "MESEC'!'";c 

220 BEEP .05,20 

230 PAUSE 150 

240 LET x=INT (RND*4)+1 

250 BEEP .05,6: BEEP .05,12 

260 IF x = l THEN PRINT At' 14, 4; "PRObNOZA: *TOPLi :‘VAL" 

270 IF k=2 then PRINT AT 14, 5; "PR06N0ZA: *HLADNi :>VAL" 

280 IF !!=3 THEN PRINT AT 14, 2; "PREDVIDJENOxOPADANJEipRODAJE 

290 IF x=4 THEN PRINT AT 14, 8; “NORMALNI-'USLOVI" 

300 bu SUB 1440 

310 CLS 

7.20 bO SUB 1520 
330 INK 0 

340 PRINT AT 3,12;z$ 

350 INPUT ; "BR0J*SANDUKA-*PICA« (max = 10)*";d 

360 PRINT AT 5,23;d 

370 LET v=0 

380 LET v=d*1000 

390 PRINT AT 7,23;v 

400 LET t=v+4000 

410 PRINT AT ll,23;t 

420 INPUT "UPISI'5'CENU*SANDUKA* (MAX*10000! ; e 

430 BEEP .1,8 

440 PRINT AT 13,23;e 

450 IF x=l THEN SO SUB 670 

460 IF x=2 THEN 60 SUB 750 

470 IF x=3 THEN 60 SUB 750 

430 IF x=4 THEN 60 SUB 830 

490 PAUSE 100: PRINT AT 16, 0; 

500 IF d'ls THEN LET 5=d 
510 PRINT AT 15,23;s 
520 LET M=s^e 
530 PRINT AT 17,23;w 
540 PRINT AT 19,23;w-t 
550 F'AUsE 600 
560 CLS 

570 LET n=n+(w-t) 

580 BEEP .05,3: BEEP .05,6 

590 PRINT AT 5 , 1 3 ; z $ , AT 10,3;" KUMULAT I VN I <>PROF I T* " ; n 

600 PAUSE 300: CLS 

610 60 SUB 1040 

620 60 SUB 940 

630 LET c=c+l 

640 IF c=7 THEN 60 TO 910 

650 F'AUSE 100: 60 TO 190 

660 STOP 

670 60 SUB 1190 
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680 LET q=INT (RND*6)+1 

690 PRINT AT 0, 1 ; "SPECTRUMOVA'i'PROD. SCENA';-" ; m (q ) : PRINT AT 1,1;" 

TVO J A‘>*<><“>-:>-9*PR0D . *CENA* " ; e 
700 IF e<m(q) THEN LET s=10: LET p=6 
710 IF e>m<q) THEN LET p=10: LET s=6 
720 IF e=m(q) THEN LET s=8: LET p=S 
730 PAUSE 200 
740 RETURN 
750 GO SUB 1190 
760 LET q=INT (RND*6)+6 

770 PRINT AT 0, 1 ; "SPECTRUMOyAopROD. «-CENA'-‘ " ; m (q) : PRINT AT 1,1;" 

TVO J A-s-o s i-s-s-opROD . OCENA* " ; e 
780 IF e<m(q) THEN LET s=4: LET p=0 

790 IF e>m(q) THEN LET p=4! LET s=0 

800 IF e=m(q) THEN LET 5=2: LET p=2 

810 PAUSE 200 
820 RETURN 
830 60 SUB 1190 
840 LET q=INT (RND»12)+1 

850 PRINT AT 0, i ; "SPECTRUMQVA*PROD. *CENA*" ; m (q ) : PRINT AT 1,1;“ 
TVOJA'i'OoO'i'OopRQD. *CENA*" ; e 
860 IF e<m(q) THEN LET 5=8: LET p=4 

870 IF e>n-i(q) THEN LET p=8: LET s=4 

880 IF e=m(q) THEN LET 5=6: LET p=6 

390 PAUSE 200 
900 RETURN 
910 CLS 

920 BEEP .05,6: BEEP .05,10: BEEP .05,8: BEEP .05,12 
930 PRINT AT 5, 8; "KRAJ*I6RE" 

940 BEEP .1,40: BEEP .1,32: BEEP .5,36: BEEP .5,30: BEEP .1,40: 
BEEP .1,32 

980 CLS : PRINT AT 8,12; FLASH 1 ; ".s-STANJE*" : FLASH 0 
990 PRINT AT 10,5;j$,AT 12, 5; "SPECTRUM" 

1000 PRINT AT 10,20;n 

1010 PRINT AT 12,20;1 

1020 IF c=7 THEN 60 TO 1260 

1030 RETURN 

1040 60 SUB 1520 

1050 INK 0 

1060 IF x=l THEN LET g=8 
1070 IF k= 2 OR >;=3 THEN LET g=0 
1080 IF x=4 THEN LET g=6 
1090 LET a=INT (RND*g)+4 
1100 LET b=a*1000 
1110 LET f=b+4000 
1120 IF a<p THEN LET p=a 
1130 LET d=p*m(q) 

1140 LET r=d-f 
1150 LET l=l+r 

1160 PRINT AT 3, 12; "SPECTRUM"; AT 5, 23; a; AT 7, 23; b; AT 11,23;T;AT 
13,23;m(q);AT 15,23;p;AT 17,23;d;AT 19,23;r 
1170 PAUSE BOO 
1180 RETURN 

1190 Data 3000 , 4000 , 5000 , 6000 , 8000 , 1 0000 
1200 DATA 1850,2250,2750,3750,4500,5500 
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1210 FOR q=l TO 12 
1220 READ miq) 

1230 NEXT q 
1240 RESTORE 
1250 RETURN 

1260 IF n>l THEN PRINT FLASH 1;AT 14,12 
1270 IF I>n THEN PRINT FLASH 1 ; AT 14,5; 
SPECTRUM I " 

1280 PAUSE 600: GO TO 10 
1290 CLS 

1300 FOR 1=1 TO 7 

1310 INK 0: PRINT AT i, 11;“ I", AT i,20;“l 
1320 NEXT i 

1330 PRINT AT 8, 1 1 “ 

1340 FOR r=2 TO 7 

1350 INK 5: PRINT AT r, 12; "■■■■■■" 

1360 NEXT r 

1370 RETURN 

1380 FOR r=2 TO 7 

1390 PRINT AT r , 1 2 ; “ ■S'*'!’***** " 

1400 PAUSE 100 
1410 BEEP .05,14 
1420 NEXT r 
1430 RETURN 
1440 FOR g=l TO 10 
1450 FOR f=0 TO 7 
1460 BORDER -f 
1470 BEEP .02,f 
1480 NEXT i 
1490 NEXT g 
1500 RETURN 
1510 STOP 

1520 CLS : PRINT AT 3, 0; "MESEC«><: " ; c 
1530 PRINT AT 5, 0; ''NAPRAVLJENO<’SANDUKA" 
1540 PRINT AT 7,0; ''VARIJABILNA*CENA" 

1550 PRINT AT 9,0; "FIKSNA*CENA»*'><':'*'>'><>9 
1560 PRINT AT 1 1 , 0; “UKUPNA*CENA“ 

1570 PRINT AT 13, 0; "CENA*SANDUKA" 

1580 PRINT AT 15, 0; “BROJ'''PROD. ^SANDUKA" 
1590 PRINT AT 17, 0; "DOHODAK<>OD*PRODAJE" 
1600 PRINT AT 19, 0; ''PR0FIT'5-ILI*BUBITAK“ 
1610 FOR a=0 TO 2,: INK 5: PRINT AT a,0;" 

1620 NEXT a 
1630 RETURN 


:; ''POBEDIO*SI I " 
"OPETOJEOPOBEDIO* 


<>«4000" 
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2452 

Ovo je jedna od boljih logidkih igara u na^oj knji±ici. Toplo 
preporudujemo da je ukucate. Program je kratak, ali zato efektan 
i dobro napisan. 

Verovatno vam je svima poznata tabla za igru s petnaest 
brojki koje eu izme^ane ili ih sami izme^ate, a zatim treba da 
ih sloiite po redu. Radunar nacrta slidnu tablu za igru na 
ekran, a vi umesto brojeki pomerate prazan prostor. Cim program 
ukucate i startujete bide vam sve jasno- Pored pomeranja brojki 
motete od programa da zatraiite i me^anje brojki- To nije tako 
jednostavnoj, kao ^to u prvom trenutku izgleda- Lo4 program mode 
brojke na tabli take da pome^a, da je vi^e nedete modi da je 
dovedete u red- 

Kad igru zavr^ite, radunar pregleda da li je tabla pravilno 
sastavljena. Po^to ste pametnl, to dete ustanoviti i sami. 

U 10. i 20. redu napisana su uputstva. Glavni deo programa 
nalazi se izmedu 100- i 260. reda, gde se pomera prazan prostor 
ill trade dodatne mogudnosti koje pruda program- U redovima od 
270-340. se pomodu definieije u instrukeiji DATA proverava da ii 
je tabla uredena. Detinieiju modete i da promenite- Sasvim na 
kraju sme^ten je potprogram za me^anje brojeva- Ima samo 
nekoliko redova i zato me^anje dude traje. 

Zadatak: u 60. redu promenite raspored, npr. u 2, 1, 3 i 4, a 
zatim probajte da tablu pravilno sastavite- Modda dete ipak 
uspeti , ako budete popravili i instrukeiju DATA u 330- redu- 



10 PRINT "Uputstva: " ’ ' "■•■■■prDgram'^'si mul i ra-tabl i 

brojevi ma. •^Pomocu'-strel ica- -'"<^<=’*pomera5"znak , -^dok'^ne--" 
sastavi 5=>--'<-'tabl icu, - Brojevi ••>moraju-'bi ti ozeni •=>po--' 

rasporedu, •->kao--sto- -><--5u-->bi 1 i-=>na-pocetku-''^. ■" " Naredbe 
<:• •:> •:> •:> « •:> <:• -0- •;> n-i-(TieSanje ''' •- •- '•> p - 

pravi 1 no/obrnutO'‘- i " 

20 PRINT tAt"PrDgrani--'5e'-‘5ni mi ■■■■'sa: ' "■‘>60<"TD"---9999‘' 

30 PAUSE 0 . 

40 CLS : -RANDOMIZE 

50 LET qqq=0: LET e=0: LET y=0: LET po;-; = 10: LET poy=7 
60 PRINT ^ 

70 PRINT ’ 

SO PRINT ^ 

90 PRINT ^ "■^>13<^14-*-15<^-‘j FLASH FLASH 0 

100 PRINT INVERSE 1;AT 0, 0; ; AT 8,0; 
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no FOR s=l TO 7: PRINT INVERSE 1 ; AT s, 0; AT 5,12;"*'';: 

NEXT 5 

120 LET a*=SCREEN* (poy-2, po;; ) : LET b*=SCREEN$ (pDy-2, pox + l ) : 
LET u$=a*+b$ 

130 LET a5.=SCREEN$ (poy+2,pDx): LET b*=SCREENt (poy+2, pox + l ) : 
LET d*=a$+b$ 

140 LET a$=SCREEN$ (pDy,po;;-2) : LET b$=BCREEN$ (poy,pDK-3): 

LET l$=b$+a$: 

150 LET a$=SCREEN$ (poy, pD;:+4) : LET b*=SCREEN$ (poy,pox+3): 

LET r$=b$+a$ 

160 IF y=l THEN BO TO 370 

170 PAUSE 0: LET a*=INKEY$: BEEP .01,qqq 

180 IF a$="5" AND poxOl THEN PRINT AT pDy,pDx;l$: LET pD!-;=pD;!- 
3: LET qqq=VAL 1$ 

190 IF INKEYtO"" AND y=l THEN LET y=0: PRINT AT 10,0,,,,: BO 
TO 170 

200 IF a$="8" AND poxOlO THEN LET qqq=VAL rf: PRINT AT poy, 
pox;r*: LET pox=pox+3 

210 IF at="7" AND poyOl THEN PRINT AT pDy,po;<;u$: LET qqq=VAL 
u$: LET poy=poy-2 
220 IF a$="p" THEN 60 TO 270 
230 IF a*="m" THEN LET y=l 

240 IF a*="6" AND poy07 THEN PRINT AT poy,pDx;dt: LET qqq=VAL 
d$: LET poy=poy+2 

250 PRINT FLASH 1 ; AT poy , pox ; : FLASH 0 
260 60 TO 120 


270*REri» -><»<-<»PRAVILN0/PDGRE5N0-»<> 

280 LET r=0: RESTORE : FOR q=l TO 15: READ a,b,c$ 

290 IF SCREEN* (a,b)=c$ THEN LET r=r+l 
300 NEXT q 

310 IF r=15 THEN PRINT BRIGHT 1;AT 10,0;"*i'*PRAVILN0'>f* 
SASTAVLJENO**'! ": BRIGHT 0: FOR g=l TO 60: BEEP .01,g: 

BEEP .01,40-g/2: BEEP . 01 , RND* 10: NEXT g: 60 TO 340 
320 IF r<>15 THEN PRINT INVERSE 1 ; AT 10, 0; "**0BRNUTQ* ! I ! " : 

INVERSE 0: BEEP 1,-10: 60 TO 340 
330 DATA 1 , 1 , " 1 " , 1 , 4, "2" , 1 , 7, "3" , 1 , 10, "4" , 3, 1 , "5" , 3, 4, "6" , 3, 7, 
7 " , 3 , 10, " 8 " , 5 , 1 , " 9 " , 5 , 5 , " (0 " , 5 , 8 , " 1 " , 5 , 1 1 , " 2 " , 7 , 2 , " 3 " , 7 , 5 , " 
4",7,8,''5",7,10,"-'>"' 

340 INPUT "nova*igra*(d/n)*"; LINE a*: IF a*="d" THEN RUN 
350 PRINT AT 10,0;,, 

360 GO TO 120 

STO'RENO OOOMESANJEOOO 
380 LET e=INT (RND*4)+5 
390 BEEP poy/BOjpox 
400 LET a$=STR$ e 

410 PRINT AT 10,0; "ZA*PREKID*MESANJA*PRITISNI*NA**<'BILO*KOJU* 
GUMICU" 

420 GO TO 180 

430 SAVE »"m"; 1; "SASTAVI*! " LINE 0 
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ud svih drustvenih igar 
drvenim plodilcama — domine 
neki uz nju naude i da bro 
I na^ radunar odludio J 
najvi^e problema imao s hv 
iz ruku, pa su take protiv 
dosadne vederi "duga" se n 
omoguduje ravnopravnu ig 
potrebne: sve se dogada na 
broj proti vni kovih plodica 
nastoji da "dugu" pobedi . 

Prvi igradi bill su 
programa, a bill su i besn 
Bill je i onih koji su dep 
□nde obezbedili neku pobed 
Ako se i vi budete odlu 
verovatno vam slededi poda 
Od 30- do 180- reda rad 
ekran za polje za igru. 
programske rutine za igru 
reda sme^tena je kontrola 
potprogrami za skrivanje i 
tekst uputstava. Od od 600 
igrada i radunara u po 
kontroi i 4emo da li je izbo 
reda prenosimo plodice iz 
Dd 8000- do 8060- reda ert 
do 8350- reda ertamo zalih 
8400- do 8435- reda postav 


pocetKu je 
dale su mu 
ima. tJedne 
koji joj 
nisu vi^e 
a plodica, 
grada koji 

om Dpremom 
o pobediti - 
li ovde — 

spectrumom, 

i priprema 
nalaze se 
do 2290. 
nalaze se 
m ispis i 
mo plodice 
6390- 
- do 7760- 
li igrada. 
ma od 8100- 
lodica- Od 
8440- do 






m 

ft tii l iMilit 


■li 


-a ^ 4 

n 

B 

C_ 

spectrum 


■■ 


TO 

'I 





8490. nasLimce rasporedimo plodice. Set gratidkih snakova 
postavlja ee izmedu 8600 - 8700. reda. Na kraju, izmedu 8800. i 
8940. upisujemo izabranu plodicu. 

Program je neSto dLi±i , zato je pogodan samo za spectrum 48k. 


30 CLS : PRINT FLASH I ; ''ZAUSTAVI*MAGNETOFON" 

40 LET rezi=0: LET rezm=0 

70 IF PEEK 65369=127 THEN 60 TO 100 

80 60 BUB 8600 

100 CLS : PRINT AT 0. 12; " DOIIINO " 

110 PRINT AT 1,13; "By": PRINT AT 2, 5; "Kran j , ianuar*1985“ : 

PRINT : PRINT 

120 PRINT "*TvDje*ime''?* (dD-'9'znakova'>i **'''''ENTER) " 

130 POKE 23658,8: INPUT LINE a$: POKE 23658,0 
140 LET I$=at: IF LEN a$>9 THEN LET I$(l TO 9)=a$ 

150 PRINT : PRINT "Hval a*" ; 1$ 

160 PRINT : PRINT "Da*! i ■''■trebal'ob jaln jen je*pravi 1 a*?* (d/n) " 

170 IF INKEY$="n" THEN 60 TO 300 

ISO IF INKEY$<>"d" THEN 60 TO 170 

190 60 SUB 3000 

200 CLS : 60 SUB 2600 

300 DIM Z$(84): DIM D$(30) 

310 F'RINT : PRINT "Trenutak, ^mol i m* ( 15*5) “ 

320 60 SUB 8400: *REM*-inici jal i zaci ja 
340 60 SUB 8000: *REM*-1 5pl 5*poi ja 

350 PRINT AT 20,0;I$;TAB 9;rezi;AT 21 , 0; “spectrum**" : rezm 

360 LET q=l: 60 SUB 8100: *REM*-pr i kaz*zal i he 

370 LET dd=0: LET dl=0: LET b$="********************" 

380 PRINT AT 16,23; BRIGHT 1;I$ 

400 PRINT AT 20, 12; "K0LIK0*D0MINA" ; AT 21,12;"*******" 

410 GO SUB 8800: LET ii=iz-l: PRINT AT 21 , 12; i z ; "***" 

420 IF iz<I OR iz>5 THEN GO SUB 7500: GO TO 400 
45o LET w=iz: FOR s=l TO w 

460 PRINT AT 20, 12; " I ZVQLI*" ; s; " . ***" ; AT 21,12;"******" 

470 GO SUB 8800: IF iz=0 THEN RUN 

475 IF CODE Z*(iz)=199 THEN GO SUB 7500: GO TO 460 

480 GO SUB 7600 

435 PRINT AT 20,12;b$ 

500 LET q=3: GO SUB 8100: PRINT AT 16,23; BRIGHT 1;I$ 

510 NEXT 5 

520 F'RINT AT 16,23; I$;AT 21,12;bt;AT 8,23; BRIGHT 1 ; "Bpectrum" 
530 FOR s=l TO w: PRINT AT 20, 12; "uz i mam*" ; 5; " . **" 

540 LET iz=INT ( 1+27. 5*RND) : IF CODE Z$(iz)=199 THEN 60 TO 540 
550 GO SUB 7700 

570 LET q=2: 60 SUB 8100: PRINT AT 8,23; BRIGHT 1; "spectrum" 
580 NEXT s 

590 F'RINT AT 6, 23; "spectrum" ; AT 20,12;b$ 

6O0 PRINT AT 16,23; BRIGHT 1;I$: PRINT AT 20, 12; "poSetna'* 
domi na" 

610 GO SUB 8800 

620 IF iz=0 THEN GO TO 600 

630 IF CODE Z* (iz+56)=199 THEN 60 SUB 7500: 60 TO 600 
635 LET miz=iz 

640 F'RINT AT 8,23; BRIGHT 1 ; "spectrum" : F'RINT AT 16,23;!$ 
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6bu LET q— 2: bO SUB 78u0 

660 LET Z*(p(l)+28)=CHR$ (CODE Zt (p ( 1 ) +28) -100) : LET q=2: SO 
SUB 8100 

670 LET Z$(p(l)+28)=CHR$ (CODE Z$ (p ( 1 ) +28) +100) 

680 PRINT AT 20,12!b$;AT 21,12;b$; BRI6HT 1 ; AT 20, 12; "SUDIJA" 

720 LET 1=56: LET iz=miz: 60 SUE B500 

730 IF zl=z2 THEN LET t=13+zl 

735 IF il<>z2 THEN LET t=zl+z2 

740 IF t>=t(p(l)) THEN 60 TO 900 

7 5 0 ■'■■■ R E t1 5 p e c t r Li m * n a ■■■■■ p D t e z Li 

760 PRINT AT 21, 12; b$; AT 20, 12; "SUDIJA" ; AT 8,23; BRI6HT 1;" 
spectru/n" 

765 LET i=28: LET iz=p(l): 50 SUB 8500: LET zzl=zl: LET zz2=z 
LET dd=z2: LET dl=z2 
770 LET i2=p(l): 60 SUB 6000 
780 LET q=2: 60 SUB 8100 
790 LET zl=zzl: LET z2=zz2: 60 BUB 7000 ' 

800 60 TO 1000 

900'REM*-igraS (''na'-'pDtezu 

905 PRINT AT 16,23; BRI6HT 1;I* 

910 LET iz=miz: LET i=56: 60 SUB 8500 

920 LET zzl=zl: LET zz2=z2: 60 SUB 6100: LET dd=z2: LET dl=z2 

930 LET q=3: 60 SUB 8100 

940 LET zl=Z 2 l: LET z2=zz2: 60 SUB 7000 

950 60 TO 1500 

1000*REM!'-igraS*na*potezu 

1005 IF zalo=0 AND mavr=0 THEN LET pa5=4: 60 TO 2000 
1010 PRINT AT 20,12;b$;AT 21,12;b$ 

1015 IF zalo=0 THEN LET p$="I,P" 

1016 IF zalo=0 AND igra=0 THEN LET pa5=4: 60 TO 2000 

1020 PRINT AT 16,23; BRI6HT 1;I$: PRINT AT 20, 12; "tvc3j*pDtez<> ( 
;p$; ") ";AT 21,12; FLASH 1; "?" 

1(330 LET a$=INKEY$ 

1035 IF a$<:!"" AND CODE a$>64 THEN LET s$=CHR$ (CODE a$-32) : 

PRINT AT 21, 12; 5$ 

1040 IF a$="i" THEN 60 TO 12(30 

1050 IF a$="k" THEN 60 TO 11(30 

1060 IF a*="p“ THEN 60 TO 1400 

1065 IF a$="m" THEN 60 SUB 2400: 60 SUB 2500 

1070 PRINT AT 21,12; FLASH 1;"?"; FLASH 0; 

1090 60 TO 1030 

1 1 OO'S'REM'!'— i gr aS*uz i ma 

1110 IF zalo=0 THEN 60 SUB 7500: 60 TO 1010 
1115 LET pas=(3 

1120 PRINT AT 20,12;b$;AT 21,12;b$;AT 20, 12; "izvol i " 

1130 GO SUB 8800 

1140 IF iz=(3 THEN 60 TO 1010 

1150 IF CODE Z$(iz)=199 THEN 60 SUB 7500: 60 TO 1120 
1160 60 SUB 7600: LET q=3: 60 SUB 81(30 
1170 IF 2alo=0 AND mavr=0 THEN 60 TO 2000 
1180 60 TO 1010 
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1200‘'>REri''"-i graS<-'prenosi '^^U'-'pol je 

1210 IF iQra=0 THEN 60 SUB 7500: GO TO 1010 

1220 PRINT AT 20,12;b*;AT 21,12;b$;AT 20, 12; " i z vol i " 

1230 GO SUB 8800: IF i2=0 THEN GO TO 1010 

1240 IF CODE Z* (iz+56) = l<?9 THEN 60 SUB 7500: GO TO 1010 

1245 PRINT AT 20, 12;b$ 

1250 LET 1=56: 60 SUB 8500: LET z 2 l=zl: LET zz2=z2 
1255 LET q=3: 60 SUB 6200: IF error=l THEN 60 SUB 7500: GO TO 
1010 

1260 GO SUB 6100: LET pa5=0 

1270 LET q=3: 60 SUB 8100 

1280 LET zl=zzl: LET z2=zz2: 60 SUB 7000 

1290 60 TO 1500 

1300 60 TO 1010 


1400*REM*-igraS<>prepuTta 

1410 IF zaloOO THEN 60 SUB 7500: 60 TO 1010 

1420 LET pas=pas+2 

1430 IF pa5<3 THEN 60 TO 1500 

1440 60 TO 2000 

1 500-'REM!' -igr a* spectrum 

1505 IF zalo=0 AND igra=0 THEN LET pa5=4: 60 TO 2000 
1510 PRINT AT 16,23;!$; BRIGHT 1;AT 8, 23; "spectrum" 

1520 PRINT AT 20, 12;b$;AT 20, 12; "anal i zujem*-!"''" ; AT 21,12;b$ 

1525 IF mavr=0 THEN 60 TO 1590 

1530 LET q=2: 60 SUB 7800 

1540 FOR s=l TO mavr 

1550 LET i=2B: LET iz=p(s) 

1560 GO SUB 8500: GO SUB 6200 
1570 IF error=0 THEN GO TO 1700 
1580 NEXT s 

1590 PRINT AT 20, 12;b$;AT 20, 12; "kupujem" 

1600 IF zalo=0 THEN 60 TO 1650 
1605 LET iz=INT (1+RND*27.5) 

1610 IF CODE Z$(iz)=199 THEN 60 TO 1600 
1620 GO SUB 7700: LET q=2: 60 SUB 8100 

1625 PRINT AT 8,23; BRIGHT 1; "spectrum" 

1626 F‘RINT AT 2o,12;b$;AT 20, 12; "anal izujem" 

1627 IF zalo=0 AND igra=0 THEN LET pas=4: 60 TO 2000 
1630 LET 1=28: LET iz=mavr: GO SUB 8500: GO SUB 6200: IF 

error=0 THEN GO TO 1700 
1640 GO TO 1590 
1650 LET pas=pas+l 
1660 GO TO 2000 

1700 LET pas=0: PRINT AT 20,12;b$;AT 20, 12; "1 mam" : 60 SUB 6000 

1720 LET q=2: 60 SUB 8100 

1730 GO SUB 7000 

1790 IF mavr>0 THEN GO TO 1000 

1800 IF zalo=0 THEN LET M=0: LET 1=10: GO TO 2130 
1810 60 TO 1000 
1999 STOP 

2000 ''REH*-sudi j a 

2010 IF pas<3 THEN GO TO 1000 

2020 PRINT AT 8, 23; "spectrum" ; AT 21,12;b$;AT 20, 12;b$; BRIGHT 
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1;AT 21,12; "SUDIJA" 

2025 60 SUB 2400 

2030 LET M=0: LET Mm=0 

2035 IF mavr=0 THEN 60 TO 2070 

2040 FOR i=l TO mavr 

2050 LET iz=28! 60 SUB 8500 

2060 LET M=M+zl+z2 

2062 IF zlJ'Mffl THEN LET Mm=z 1 

2063 IF z2>Mm THEN LET Mm=z2 
2065 NEXT i 

2070 LET 1=0: LET lm=0 

2075 IF igra=0 THEN 60 TO 2130 

2080 FOR i=l TO igra 

2100 LET iz=56! 60 SUB 8500 

2110 LET I=I+zl+z2 

2112 IF zl>Iffl THEN LET Im=zl 

2113 IF z2>Im THEN LET Im=z2 
2120 NEXT i 

2130 CLS : PRINT AT 0. 12: '‘ DOMINE "!AT 1,13; "BO" 

2140 IF M<I THEN 60 TO 2200 

2150 IF M=I AND mavr<igra THEN 60 TO 2200 

2160 IF M=I AND Mm<Im THEN 60 TO 2200 

2170 PRINT AT 10, 0; "BRAVO*" ; 1$: PRINT : PRINT "Trenutni* 
rezultat” 

2180 LET rezi=rezi+l 
2190 60 TO 2250 

2200 PRINT AT 10,0; "Ovaj*put*pobeda*je*moja": PRINT : PRINT 
Trenutni*rezultat" 

2230 LET rezm=rezm+l 

2250 PRINT "spectrum*:*"; 1$: PRINT TAB 4;rezm;TAB 12;rezi 
2260 PRINT : PRINT "nova*igra* (d/n) ?" 

2270 IF INKEY$="d" THEN PRINT : 60 TO 300 

2280 IF INKEY$="n" THEN PRINT "HVALA*NA*I6RI " : STOP 

2290 60 TO 2270 

2400*REM*-pri kaz*domina*spectruma 
2410 FOR i=l TO mavr 

2420 LET Z*(i+28)=CHR$ (CODE Z$ (i+28) -100) 

2430 NEXT i 

2440 LET q=2: 60 SUB 8100 
2450 PAUSE 1: PAUSE 100 
2460 RETURN 


2500*REM*-5kri vanje*5pectrumovih*domina 
2510 FOR i=29 TO 28+mavr 
2520 LET Z*(i)=CHR$ (CODE Z$(i)+100) 
2530 NEXT i 

2540 LET q=2: 60 SUB 8100 
2550 RETURN 


2600*REM*-g 1 a va 
2610 CLS 

2620 PRINT AT 0. 12; " D0I1INE* *BQ" 
2650 RETURN 


2700*REM*-kontrol a*i spi sa*uputstva 
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2710 PRINT AT 21 , 0; ‘'Napred*<PrethDdna*5trana**Igra" 

2720 IF INKEY$="n" THEN LET 5=0: SO TO 2780 

2730 IF INKEY$="p'' THEN LET s=l: SO TO 2780 

740 IF INKEY$="i" THEN LET 5=2: SO TO 2780 

760 SO TO 2720 
780 RETURN 

3000*REM*-uputstva 
3010 SO SUB 2600 

3020 PRINT ! PRINT : PRINT "Domine*su*5tara'-druTtvena*igra**sa''’ 
dva*i Ii<’vi re*igraSa.U*igri'>**je*28'>razIiSitih*domina,‘>koje<> 
susastavl jBne»od*dva*poI ja*5a‘>0-s-dD6*taSaka. '' 

3030 PRINT : FOR i=6 TO 0 STEP -1: FOR j=0 TO i: PRINT CHRt ( 
146+i);CHR$ (153+0);: NEXT j: NEXT i: PRINT 
3040 PRINT : PRINT ''Program*je*irradjen* 2 a*igru**''>**izmedju* 
jednog*igraSa*i*raSunara (spectrum) . *TakD*na5tupa ju*tri -s-* 
potprograma: " 

3050 SO SUB 2700 

3060 SO TO 3061+5 

3061 60 TO 3070 

3062 SO TO 3010 

3063 RETURN 
3070 60 SUB 2600 

3080 PRINT : PRINT ''DeD-'"!’ ( A) *namen jenS'je^za+'pomoc'S-s-^igraSu: * 
prenosi *mu*i *okrece**->*«domi ne, ''’teokontrol i Te* 
pravi Inostpoteza. -'Zai'vremevizvodjen ja*je'>*ime*igraSa''' 
ispisano*'na*svetlaj:>*podlozi . " 

3090 PRINT : PRINT "Deo* (B) *pret5tavl ja*proti vni ka** (spectrum) , * 
te*je*zato*za*vreme*i z vod jen ja*natpis**spectrum**na* 
5vetloj*podIozi i . " 

3100 PRINT : PRINT "Deo«*(C)**pret5tavIja*sudiju'-***kDji*igru* 
otvori *i *na*kr aju*****odredi*pobedni ka. *Njegov*na 5 tup* 
najavl jen*Je**i 5pi 5om*u*de5nom**dDn jem^prozoru. " 

3110 60 SUB 2700 

3120 SO TO 3121+5 

3121 60 TO 3130 

3122 60 TO 3010 

3123 RETURN 
3130 60 SUB 2600 

3140 PRINT : PRINT "RaSunar*na'>pDSetku*i zmeTa*domi nei *okrenute* 
razmesti*u*gornji***<>prozor*(zaliha) . " 

3150 PRINT "Nakon*toga*upita*igraSa*koI i kD**dDmi na*na*poSetku*U 
el i ( l*do*5) . *IgraS->nakon*toga*domine*uzima*<‘*upisom* 
kDDrdinata*u*pDi ju*******zal ihe. *Program*i h*nameTta*u****S 
etvrti *pro 2 or* (ime) *i *okrene***tako, *da*ih«i graS*vi di . " 

3160 PRINT " Isti *brDj*dQmi na*zatim''uzme*i ***raSunar . *Nakon*toga* 
zahteva, *da*i gr aS*predIodi **dominu*koju*deI iprvu*da*ukl juS 
i *u*i gru*i <'*******pret5tavi *5voju. *Sudi ja*zati m*naosnovu* 
teUi ne*odl uSi *koja*dQmi napr va*ul azi *u*i gru*i ^prenese* je* 
utreci *prozDr . " 

3170 60 SUB 2700 

3180 60 TO 3181+5 

3181 60 TO 3190 

3182 60 TO 3070 

3183 RETURN 
3190 60 SUB 2600 
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3200 F'RINT : PRINT " sprvi -Spotez ''i ma'-iat im-drugi i graS. ■'Od* 

svojih'-'domina-5izabere*jednu*5a'‘’jednal!im®brojem''taSaka*kao* 
na<pDiiii ni <!'u*trecsm'®prozoru** ( 1 evi 1 i 'Sdesni -^dsD) . '■!'IgraS*tD - 
<’javi**potezoiii*I (mam) ''a*raSunar‘'porukom*iroam*desno*'!pol e. " 
3210 PRINT "■■5'IgraS'*zati m*najavi ''domi nu-'koju-syei i *da'!prBne5e*u* 
pol je. ■■■’Ako*jB''’moguc*prenos*na* jednu*i 1 i '>drLigu*stranu, '-TaS 
unar' zahteva*! ****** '-pravac. '' 

3220 PRINT " K a d * i g r a S n e m a o d g □ V a r a j Li c e ■■■P a m i n e , ■■■■■ z a h t e V a 

prenDS*iz ''zal i henaredbom*K (upi m) <■ i 'Pada*<’'''*'''“ *'!’''koordinate'> 
u --p r □ z o r u ■■■P a 1 i h e , * R a S u n a r t Q * r a d i * a Li t a m a 1 5 k i i * s v a j e 

akti vnost i*javl ja*u*desnomdon jem'-prozoru. '' 

3230 SO SUB 2700 

3240 BD TO 324 1+s 

3241 60 TO 3250 

3242 60 TO 3130 

3243 RETURN 
3250 60 SUB 2600 

3260 PRINT : PRINT '' Igra^se-snastavl ja-''dDk*nB*ne5tanedDmi na*u* 
zal i hi . *0ba-'>i graSa*sadanaredbom*P (repuTtam) smogu*''***-'’* 
prepust i ti **pDtez'''proti vni ku. *'-'*Kada'to*naprave''oboji ca, 
*<>•!>■;> spont rol u‘-preuz me*sud i ja'i’i ‘'Ddredi <pobedni ka. 

□snova-'*za*~ ■■■■*'' to*jB''Proj*taiTaka*na!preostal im*dominama. " 
3270 PRINT " Igra£*koji , Snakon'i’TtDOje-zal i ha*isprazn jena, i'ostane > 
bez'7domina, »automat5ki<5-je*pobedni k. ” 

3280 SO SUB 2700 

3290 60 TO 329 1+s 

3291 SO TO 3300 

3292 60 TO 3190 

3293 RETURN 
3300 SO SUB 2600 

3310 PRINT : PRINT "Uputstva: " : PRINT : PRINT "Pri 1 i kom->LinoT 

enja*koardinata''*'9-'>prvo*je''SlovD. '>UnoTenje'Proja*naprvom* 
mestu'-'znaSi <>5lovo*A. ” 

3320 PRINT : PRINT "Kod*nepravi 1 nog-unoTen ja-'pojavi *se'!'natpi s* 
NE*IDE. *RaSunar*Seka''’*na*pravi 1 an-podatak . " 

3330 PRINT ! PRINT "pDgreTnD'''zapoSeti*unos'mol/ete'='**opozvati*s'! 

naredbom*Q. " 

3340 60 SUB 2700 

3350 SO TO 3351+s 

3351 RETURN 

3352 60 TO 3250 

3353 RETURN 
3999 STOP 

6000-sREMs -pr en os^sp ec t rum >p o 1 j e 
6010 LET i=28! SO SUB 8500 
6020 LET Zt(i+iz)=Zf (mavr+28) 

6030 LET Z$(mavr+2a)=CHR* (199) 

6040 LET mavr=mavr-l 
6050 RETURN 


6 1 00*REM*-prenos '-i gras > pol j e 
6110 LET i=56: SO SUB 85u0 
6120 LET Z$(iz+i)=Z$(igra+56) 
6130 LET Z$(igra+56)=CHR* (199) 
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6140 LET lgra=igra~l 
6150 RETURN 

EEGOOREM-'-proveravan je-'pravi 1 nost i *1 zbora 
6210 LET error = l: LET 5$="D'' 

6220 IF zlOdd AND z2<>dd AND zlOdl AND z2<>dl THEN RETURN 
6230 IF ddOdl THEN SO TO 6300 
6235 IF q=2 THEN BO TO 6280 

6240 PRINT AT 20,12;b*;AT 20, 12'! "kuda* (d/1 > " ; AT 21.12;b$!AT 21, 
12; FLASH 1;"?" 

6250 IF INKEY*="d" THEN 60 TO 6280 

6260 IF INKEY*="r' THEN LET st="L'': SO TO 6280 

6270 60 TO 6250 

6280 LET error=0: PRINT AT 21 , 12; s$; : RETURN 

6290 RETURN 

6300 IF zl=dd AND z2=dl THEN SO TO 6235 
6310 IF z2=dd AND zl=dl THEN 60 TO 6235 
6390 LET error=0: RETURN 

7000'"REM'-’-upi 5*nove*domi ne*i *pr i kai 
7010 LET iz=0 

7020 IF NOT (zlOdd AND zlOdl) THEN SO TO 7080 
7030 IF z2=dd THEN SO TO 7060 
7040 IF z2<>dl THEN RETURN 
705(J (jQ TO 7280 

7060 IF z2<>dl THEN BO TO 7240 
7070 BO TO 720)0 

7080 IF NOT (ZlOdd AND zl=dl) THEN BO TO 7130 

7090 IF z2<>dd THEN SO TO 7260 

7100 IF z2=dl THEN GO TO 7200 

7110 IF 5$="L" then SO TO 7260 

7120 BO TO 7240 

7130 IF NOT (il=dd AND zl=dl) THEN SO TO 7160 

7140 IF s$="L" then 60 TO 7260 

7150 60 TO 7220 

7160 IF z2<>dl THEN GO TO 7220 

7170 IF z2=dd THEN GO TO 7200 

7180 IF 5*="L" then SO TO 7280 

7190 GO TO 7220 

7200 IF s$="L" THEN BO TO 7280 
7210 60 TO 7240 

7220 LET D*(pd)=CHR$ ( 10)|iz l+z2) : LET dd=z2 
7230 LET pd=pd+l: IF pd>29 THEN 60 TO 7340 
7235 BO TO 7380 

7240 LET D$(pd)=CHR!t (10*z2+zl): LET dd=z 1 
7250 LET pd=pd+l: IF pd>29 THEN GO TO 7340 
7255 GO TO 7380 

7260 LET D$(pl)=CHRt (10)»z2+zl): LET dl=z2 
7270 LET pl=pl-l! IF pKl THEN GO TO 7300 
7275 GO TO 7380 

7280 LET D$(pl)=CHR$ (10]lzl+z2): LET dl=zl 

7290 LET pl=pl-l: IF pKl THEN GO TO 7300 

7295 GO TO 7380 

7300 FOR 1=30 TO 2 STEP -1 

7310 LET D$(i)=D$(i-l! 
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7320 NEXT i: LET D$ ( 1 ) =CHR$ (199) 

7330 LET pl=pl+l: LET pd=pd+:: GO TO 7400 
7340 FOR i = l To’ 29 
7350 LET D$(i )=D$(i+l) 

7360 NEXT i: LET D$(30)=CHR$ (199) 

7370 LET pl=pi-l; LET pd=pd-l 
7380 LET 12=1 

7400''REM“-crtan je 
7410 FOR i=l TO 30 

7420 IF CODE D$(i)=199 THEN 60 TO 7460 

7430 LET y=12: IF i/2=INT (i/2) THEN LET y=13 

7435 IF CODE D$(i)=199 THEN PRINT AT y,i GO TO 7460 

7440 LET zl=INT (CODE D$(i)/10>: LET z2=C0DE D$(i)-10*zl 

7450 PRINT INK bdjAT y,i;CHR$ ( 146+z 1 ) ; CHR* (153+z2) 

7460 NEXT i 
7470 LET iz=l 
7490 RETURN 

7500!>REM>-i spi 5‘>NE<‘IDE 

7520 FOR i=12 TO 31: PRINT INK 2; AT 19,ij"fi": NEXT i 
7530 PRINT AT 19,17; FLASH 1; '■<>NE«IDE:-": PAUSE 1: PAUSE 150 
7540 FOR i=0 TO 31: PRINT INK bm;AT 19,i;“fi": NEXT i 
7550 RETURN 

7600«REM<'-preno5i'zal i ha>i graS 

76i0 LET igra=igra+l: LET Z$ ( i gra+56) =CHR$ (CODE Zt(iz)-lOO) 
7620 LET Z$(iz)=CHR$ (199): LET 2 alo= 2 alo-l 
7630 PRINT AT INT ( ( iz-1 ) / 10) +3, (i z-10* INT ( (i z-1 ) /lO) ) *2; "**" 
7640 RETURN 

7700*REM<'-prBnos*zal i ha /spectrum 

7710 LET mavr=mavr+l: LET Z$ (mavr+28) =Z$ (iz ) 

7720 LET zalo=zalo-l: LET Z$(iz)=CHR* (199) 

7730 PRINT AT INT ( ( i z-1 ) / 10) +3, (i z-10« INT ( ( iz-1 ) / 10) ) *2; 

7740 RETURN 

7800'>REM*-bi ran je*net(l jene*dDmi ne 

7810 LET iii=mavr: LET iz=28: LET Kkk=100: IF q=3 THEN LET 
iz=56: LET iii=igra: LET kkk=0 
7820 DIM p(iii): DIM t(iii) 

7830 FOR i=l TO iii 
7840 GO SUB 8500 

7850 IF zl=z2 THEN LET t(i)=13+zl 
7860 IF zl<>z2 THEN LET t(i)=zl+z2 
7870 NEXT i 

7880 FOR i = l TO iii: LET ma;i=0 
7890 FOR j=l TO iii 

7900 IF t(j)>max THEN LET max=t(j): LET mmaK=i 
7910 NEXT j 

7920 LET p(i)=mma;<: LET t (mmax ) =-t (mmax ) 

7930 NEXT i 

7940 FDR i=l TO iii 

7950 LET t(i)=-t(i) 

7960 NEXT i 

7965 PRINT AT 9,23;"*'' 
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/990 RETURN 


8000*REM*-pol jE*za*igrLi 

8010 LET bp=6: LET bm=4: LET bn=0: LET br=3 

8020 PAPER bps CLS : PRINT AT 0. 12; " DOMINE '': AT 

8030 FOR i=0 TO 31: PRINT INK biii;AT 2,i;"«";AT b,i;"P";AT 10, 

i;"«";AT 15,i;''fl";AT 19, NEXT i: PRINT INK bm;AT 20, 
11; "«";AT 21, 11; "ft" 

8040 FOR i=0 TO 9: LET x=3+i*2: PRINT INK bn;AT 6,s;i;AT 10, 
x;i;AT 15,x;i: NEXT i 

8050 FOR i=l TO 3: PRINT INK bn; AT 2+i,0;CHR» (64+i);AT 6+i , 
0;CHRf (64+i);AT 15+i,0;CHR$ (64+i ) : NEXT i 
8060 RETURN 

8100*RErl*-pri kaz*zal i ha 

81 10*REM*-i i *grupa* ( l-'zal i ha, 2*spectrum<»3">igraS) 

8115 LET i i =q! *REM*-domine 

B 1 20*REM*-vrednD5t i : -sOO-bb-sot kr i vene*domi ne ; 100- 1 66*pokr i vene* 
domine; 199''nema*domina 
8125 LET bd=0 

B130 IF ii=l THEN LET yz=3: LET iz=0: LET iii=28: GO TO 8200 
8140 IF ii=2 THEN LET yz=7: LET iz=28! LET iii=mavr+l: GO TO 
8200 

8150 IF ii=3 THEN LET yz=16: LET iz=56: LET iii=igra+l: GO TO 
8200 
8160 STOP 

8200 FOR i=l TO ill 
8220 LET y=INT ((i-l)/10) 

8230 LET >!=(i-10*y)»2 

8235 IF CODE Z*(i+iz)=199 THEN PRINT AT y+yz , x : GO TO 8290 
8240 IF CODE Z$(i+iz)>66 THEN PRINT INK bd;AT y+yz , x ; "AB" : GO 
TO 8290 

8250 GO SUB 8500 

8270 PRINT PAPER bp; INK bd;AT y+yz,x;CHR* ( 146+z 1 ) ; CHR$ (153+ 
z2) 

8290 NEXT i 

8300 IF-ii=l THEN PRINT AT 5, 23; "zal i ha" 

8310 IF ii=2 THEN PRINT AT 8, 23; "spectrum" 

8320 IF ii=3 THEN PRINT AT 16,23; It 
8350 RETURN 

8400*REM*- inicijalizacija 

8405 FOR i=l TO 30: LET Dt(i)=CHRt (199): NEXT i 

8406 LET pa5=0: LET st="D": LET pt="I,K": LET pl=13: LET pd=14: 
LET igra=0: LET mavr=0: LET zalo=28 

8410 FOR i=l TO 84 
8420 LET Z$(i)=CHRt (199) 

8430 NEXT i 
8435 DIM p(28) 

8440*REM*-na5umiSnD'>po5tavl jan je*domina 
8445 LET iii=0 

8450 FOR i=6 TO 0 STEP -1: FOR j=0 TO i: LET iii=iii+l: LET p( 
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iii)=10*i+j+100; NEXT j: NEXT i 
8460 FOR i=l TO 28: LET j=INT (RND*. 99*i i i +1 ) 

8470 LET Z$(i)=CHR$ (p(j)>: LET p(i)=p(iii): LET iii=iii-l 
8480 NEXT i 
8490 RETURN 


6500'->REM7“Odred ji vanje'^’Z ■v-2 2 
8505 IF CODE Z$(i+iz)=199 THEN STOP 

8510 LET z=CODE Z$(i+iz): IF z >66 AND z<167 THEN LET z=z-100 
8515 LET zl=INT (z/10): LET z2=z-10»zl 
8520 IF zKO OR z 1 >6 DR z2<0 OR z2>6 THEN STOP 
8530 RETURN 

8600*REM'!'— postavl jan je'-'seta-'-UDOl 
8610 RESTORE 8670: LET ii=21 

8620 FOR i=l TO ii: READ a$: FOR i=0 TO 7: READ x::iOt POKE USR 
a$+j,x: NEXT j: NEXT i 
8640 RETURN 

8660 DATA "a" , 0, 4, 4, BIN 010101 11, BIN 01010101, BIN 01110101,128, 
128 

8661 DATA "b" , 0, 126, 66, BIN 01111010,10,251,0,0 

8670 DATA "a" , 0, 127, 65, 93, 93, 93. 65, 127 

8671 DATA "b ", 0, 255, 193, 221 , 221 , 221 , 193, 255 

8672 DATA "c ", 0, 127, 127, 127, 127, 127, 127, 127 

8673 DATA "d" , 0, 127, 127, 127, 1 19, 127, 127, 127 
3674 DATA "e" , 0, 127, 95, 127, 127, 127, 125, 127 

8675 DATA "T ", 0, 127, 95, 127, 1 19, 127, 125, 127 

8676 DATA "g" , 0, 127, 93, 127, 127, 127, 93, 127 

8677 DATA "h ", 0, 127, 93, 127, 1 19, 127, 93, 127 

8678 DATA "i ", 0, 127, 93, 127, 93, 127, 93, 127 

8679 Data "j", 0,255, 255, 255, 255, 255, 255, 255 

8680 DATA "k" , 0, 255, 255, 255, 247, 255, 255, 255 

8681 DATA " 1 ", 0, 255, 253, 255, 255, 255, 223, 255 

8682 DATA "m" , 0, 255, 253, 255, 247, 255, 223, 255 

8683 DATA "n" , 0, 255, 221 , 255, 255, 255, 221 , 255 

8684 DATA "o" , 0, 255, 221 , 255, 247, 255, 221 , 255 

8685 DATA "p" , 0, 255, 221 , 255, 221 , 255, 221 , 255 

8686 DATA "q “ , 0, 4, 4, BIN 01010111, BIN 01010101, BIN 01110101,128, 
128 

8687 DATA “r " , 0, 126, 66, BIN 01111010,10,251,0,0 

8688 DATA "s" , 20, 8, 28, 34, 32, 34, 28, 0 

8689 DATA "t ", 20, 8, 28, 34, 24, 68, 56, 0 

8690 DATA "u" , 40, 16, 60, 4, 8, 16, 60,0 
8700 STOP 

8800 -i-REM's-upi 5*1 z abrane'-J'domi ne 

8810 PRINT INK OjAT 21,12; FLASH 1;”?"; FLASH 0; "<>■*<>" 

8820 LET iz=0 

8840 LET a=CODE INKEY$ 

8845 IF a=113 THEN RETURN 

8850 IF a>96 AND aXlOO THEN LET iz=10* !a-97) : GO TO 8880 
8860 IF a>47 AND a<58 THEN LET iz=a-48: PRINT AT 21, 12; "A": GO 
TO 8910 

8870 60 TO 8840 

8880 PRINT AT 21,12;CHR$ (a-32) ; FLASH 1;"?" 
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8890 LET a=CaDE INKEY$ 

6900 IF a.>47 AND a<58 THEN LET ii = iz+a-4S: GO TO 8910 
B905 GO TO 8890 

8910 PRINT AT 21,13;a-4S; LET i 2 =iz+l 
8920 IF 12 >28 THEN GO SUB 7500: GO TO 8810 
8940 RETURN 


logidke igre 89 




OERfiZOVNI PROGRRHI 



X oei—JEiNijE; 


865 

Program bi mogao da se nazove i Ciciban mnoii odnosno Ciciban 
doli. Veoma je kratak i dobije se skoro diabe. Njegovom pomodi 
znanje mogu da obnove samo stariji. NaSoj deci to vi^e ne treba, 
poito u zemlji ima toliko mnogo uvezenih radunara i kalkulatora, 
da odgovorni navodno ved razmiiljaju o tome kako bi od njih 
proizvodili veitadka dubriva. 

Program za mno±enje i deljenje bira brojeve tako veSto da se 
deljenje Livek zavrii bez ostatka. U 270. redu napravljena je 
pomodu matematidke tormule zaStita da deca ne upi^u rezultat. 
Videdete da dete s malo snal ail j i vost i savladati i tu prepreku 
do lep4e bududnosti . 

10-5-REM*MN0ZENJE'5j'5DELJENJE 

20 RANDOMIZE 

30 LET s(ii=0 

40 LET sc=0 

dO FOR n=0 TO 23 

60 READ d 

70 POKE USR "ft"+n,d 
30 NEXT n 

90 DATA 0,24,0,255,255,0,24,0 
100 DATA 0,1,3,6,140,216,112,32 
no DATA 195,102,60,24,60,102,195,129 
120 INPUT "MNOZENJE-ijLI«-DELJENJE?!>(M*i 1 i*D) ",c$ 

130 IF c$(l)=''m’' OR c$(l) = "M'‘ THEN LET 50=’‘x": BO TO 160 
140 IF c$(l)="d" OR c$="D" THEN LET s$="A"! SO TO 160 
150 GO TO 120 

160 IF THEN GO TO 230 

170 LET rmiJT (RND*900) + 100 
180 l.ET r2=INT (RNDilO + l 
190 POKE 23692,255 
200 LET ca=rl*r2 

210 PRINT AT 21 , 0; r 1 5$; " !r2; ; 

220 SO TO 270 

230 LET rl=INT !RND*100)+1 
240 LET r2=INT (RNDilOO + l 
250 LET ca=rl 

260 PRINT AT 21 , 0; r 1 *r2; " 5$; r2; ; 

270 INPUT LINE m$: LET an5=VAL mt: IF m$<>STR$ VAL m$ THEN 60 
TO 270 

280 LET sra=sm+l 

290 IF ans=ca THEN GO TO 340 

300 BEEP 0.9, -12 

310 PRINT INK 2;CHR$ 1 46; ; 

320 PRINT ca 

330 GO TO 370 

340 BEEP 0.3,12 

350 PRINT INK 2;CHR$ 145 

360 LET sc=sc+l 

370 PRINT : PRINT 
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380 IF 5111=20 THEN 60 TO 430 

390 PRINT PAPER 6; INK 9; AT 0, 1 ; "PITANJA: ; sm 

400 PR I NT PAPER 6 ; I NK 9 ; AT 0 , 1 4 ; " TACN I <’ODGOVOR I : * " ; sc 

410 PRINT AT 1,0; "******'!><>'»<><'':>*®«**'»<>*<'*** 

420 60 TO 160 
430 PAUSE 250 
440 CLS 

450 PRINT PAPER 4; INK 9; AT 8, 1 ; “ IMAO*SI*'' ; sc ; "'-PRAVILNIH* 
DDbOVORA" 

460 PRINT PAPER 4; INK 9;-<i0' AT 10, 3; "NEMA*VISE<>PITANJA. " 
4/0 STOP' 


Si=*i3 I jie: 


1587 

Ako ne znate da sabirate, a znate da udarata po radunaru, 
savetujemo vam da ukucata ovaj program. Modda naki dlan porodice 
ipak ume da sabira? I njamu da znanje ovakva vrste dobro dodi , 
po4to sa govorka da da sa memorijski dipovi s ugradanim 
sabiranjam jo^ neko vrama da ugraduju u glava na^ih osmo^kolaca. 

Program ja napisan lapo i ima naka didaktidke vradnosti. 


p:' ITfAN'JlH : s; "TPICNIH ODGOUOI-RfA ; :I 


® ;1. © C 


1 0'>REM<»S AB I RAN J E* I « ODUZ I MAN J E 
20 RANDOMIZE 
30 LET sc=0 
40 LET siii=0 

50 PAPER 0: INK 7: BORDER 0 
60 CLS 

70 FOR n=0 TO 15 
80 READ d 

90 POKE USR "ft'‘+n,d 
100 NEXT n 

110 DATA 60,126,219,255,189,195,126,60 
120 DATA 60,126,219,255,195,189,126,60 
130 LET a=INT (RND1;40000) +10000 
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150 LET b=INT (RND*40000) +10000 
■160 LET sn=l 

170 IF RND>0.48 THEN LET sn=-l 

180 IF sn<0 AND (a-b)< 10000 THEN 60 TO 130 

190 PRINT AT 9, 13; a 

200 PRINT AT 10, 13;b 

210 PLOT 105,84: DRAW 40,0 

220 PLOT 105,60: DRAW 40,0 

230 IF sn<0 THEN PRINT AT 9,19;"-" 

240 IF sn>0 THEN PRINT AT 9,19;"+" 

250 LET ca=a+b*sn 
260 LET 5m=sm+l 
270 LET a$="" 

2B0 PRINT PAPER 6; INK 9;AT 1 , 1 ; "PITANJA: •>" ; sm 

290 PRINT PAPER 6; INK 9;AT 1 , 13; "TACNIH*OD6OV0RA: ; sc 

300 LET k$=INKEYt 

310 IF k$="" THEN 60 TO 300 

320 IF k*>"9" OR k*<"0" THEN 60 TO 300 

330 BEEP 0.1,9 

340 FOR d=l TO 20: NEXT d 

350 LET a$=k*+a* 

360 PRINT AT 12, 18-LEN a*;a$ 

370 IF LEN a$<>5 THEN 60 TO 300 

390 IF VAL a$=ca THEN GO TO 490 

400 BEEP 1,-12 

410 PRINT PAPER 2; INK 9;AT 17, 8; "PROBAJ'SpONOVNO I " 

420 FOR j=10 TO 22 

430 PRINT INK 2; AT 12,j;CHR$ 145 

440 BEEP 0.2, -12 

450 PRINT AT 12, j;"*" 

460 NEXT j 

470 PRINT AT 17,8; 

480 60 TO 260 
490 BEEP 0.4,12 

500 PRINT PARER 6; INK 9: AT 17, 12; "TACNO ! " 

510 LET 5C=5C+1 

520 FOR j=9 TO 13 

530 FOR k = 10 TO 22 

540 PRINT INK 6;AT j,k;CHR$ 144 

550 BEEP 0.07,6 

560 F'RINT AT j,k;"'^" 

570 NEXT k 
580 NEXT j 
590 PRINT AT 17, 12; 

600 60 TO 130 
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Fi(=»Vlx|OTE2*=» 


2191 

Da 1 i vam se ved dogodilo da ste u petak ill u subotu uveCe 
prilikom povratka kudi izgubili ravnote±u? Ovim programom moida 
itete je opet da pronadete. Program je obrazovni i zato vam 
savetujemo kucanjo s ciljem da neke osnove iz matematike i 
ravnote±e naudi i va4 mladi brat, koji ide negde do tredeg 
razreda osnovne dkole. 

Radunar de na ekran nacrtati vagu s teretom na jednoj strani. 
Va4 zadatak je da pomodu tegova koji vam stoje na raspolaganju 
izaberete upravo takvu te±inu. Ako znate bar malo matematike 
prilikom re^avanja zadatka nedete imati problema. 

Program de sastaviti zadatak u 20. i 50. odnosno 500. redo. U 
naatavko nacrta vagu, nagnutu na jednu ili drugu stranu, a na 
kraju i uravnote±enu. Sta dodati programu? Ako vaS braco ili 
seka ne znaju pravilno da rede zadatak, gnjavide vas i traiiti 
va^u pomod. Ute^ite ih s nekol i ko dodatnih redova, koji de u 
sludaju pogre^nog odgovora redi koje tegove treba izabrati. 


P O K U S PH PH : O r Pi C N O R E 3 E N 1 M : 0 

T E Z I M PH Z R U PH R U N O T E Z E N . J E 1 i S 0 g . 



S S g 5 0 g 
0 

LI Z i: M f H S L. I 


:1 0 0 g a 0 0 g 4-00 g S 0 0 g 


a SI g T E G "? ( d = d a n = n e ) 


10*REM'>RAVNQTEZA 
20 RANDOMIZE 
30 LET sc=0 
40 LET tr=0 
50 CLS 
60 LET k=25 

70 PRINT PAPER 6; INK 9; AT 0, 1 ; "POKUSAJA: " ; tr 
80 PRINT PAPER 6; INK 9|AT 0. 14; "TACNO*RESENIH: "jBC 
90 FOR j=l TO 30 STEP 5 
100 PRINT PAPER 2; INK 9; AT 15,j;k;"g" 

110 LET k=k*2 

120 NEXT j 

130 eO SUB 520 

140 LET ic=INT (RND*5)+2 
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1 50 
160 
170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


-TE Z I N A---Z A*UR A VNDTE 2 EN J E-> 


LET tt=0 

LET r=CINT (RND*63) +1) #25 
PRINT PAPER 4; INK 9; AT 
;r; "g. " 

LET tr=tr+l 
PRINT AT 8, 

LET d=0: GO SUB 660 

PRINT INK ic;AT 10, 10; "■■ 1 '' 

LET k=25 
FDR j=l TO 6 

PRINT PAPER 4; INK 9;AT 20, 0; "UZ IHAS--LI-" ; k; "gnEG^'^> (d=da/ 
n=ne) " 

LET a$=INKEY$ 

IF a$="" THEN GO TO 250 

IF a$="D" OK a$="d" THEN LET tt=tt+k: PRINT PAPER 3; INK 
9;AT 17, (j-l)*5+2;’‘l" 

IF a$<>’‘D‘' AND a$<>"d‘' 


290 

300 

310 

320 

330 

340 

350 

360 

370 

360 

390 

400 

410 

420 

430 

440 

450 

460 

470 

430 

490 

500 

510 

520 

530 

540 


560 

570 

530 

590 

6k)0 

610 

620 

630 

640 


50: NEXT d 


1 ) #5+2; "0" 

FOR d=l TO 
LET k=k#2 
BEEP 0.1,9 
NEXT j 

PRINT INK 2;AT 8, IS; 

FOR d=l TO 50: NEXT d 
IF tt<r THEN GO TO 490 
LET d=l: GO SUB 660 
PRINT AT 10, 10; 

PRINT AT 8, 13; 

IF tt>r THEN GO TO 460 
LET d=0: GO SUB 530 
PR I NT I NK i c ; AT 9,10; 

PR I NT I NK 2 ; AT 9,18;" 

BEEP 0.4,4: BEEP 0.7,8 
LET 5c=sc+l 
GO TO 500 . 

LET d=0: GO SUB 740 
PRINT INK ic;AT 3,10;"B»1" 

PRINT INK 2; AT 10, 18; 

BEEP 1,-12 

FOR d=l TO 100: NEXT d; PAUSE 500 
GO TO 50 
PLOT 95,80 
DRAW 60,0 
PLOT 125,80 
DRAW 0,50 
CIRCLE 125,130,4 
RETURN 
PLOT OVER 


THEN PRINT PAPER 6; INK 9;AT 17, (j- 


50 


DRAW 

DRAW 

PLOT 

DRAW 

PLOT 

DRAW 

RETURN 


d;90, 130 
d ; 70 , 0 
d ; 0 , -ZO 
d; 150, 100 
OVER d;20,0 
OVER d; 90, 130 
OVER d; 0,-30 


OVER 

OVER 

OVER 
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660 

PLOT 

OVLR 

d|;90, 120 

670 

DRAW 

OVER 

d;70,20 

6qU 

DRAW 

OVER 

d; 0, -30 

690 

PLOT 

OVER 

d; 150, 110 

700 

DRAW 

OVER 

d ; 20 , 0 

710 

PLOT 

OVER 

d;90,90 

720 

DRAW 

OVER 

d ; 0 , 30 

730 

RETURN 


740 

PLOT 

OVER 

d;90, 140 

750 

DRAW 

OVER 

d ; 70 , -20 

760 

DRAW 

OVER 

d ? 0 , -30 

770 

PLOT 

OVER 

d; 150,90 

780 

DRAW 

OVER 

d; 20, 0 

790 

PLOT 

OVER 

d;90, 110 

soo 

DRAW 

OVER 

d;0,30 

8 1 0 

RETURN 
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X iniie: 


2189 

Struinim jezikom ovaj program mogao bi da se nazove "nastavna 
jedinica za dake e osnovnih ^kola”. Radunar nacrta Xik 
aastavljen od pravougaoni ka i trougla- Treba izratunati ukupnu 
povr^inu sastavl jenog lika. Ako u prvom poku^aju odgovor ne bade 
tatan, radunar postavi potpitanje i trail povr^inu trougla i 
pravougaoni ka posebno- Za delimidno tadan odgovor igrad dobija 
polovinu mogudnih poena- 

U programu de odu^evljeni programeri popraviti prilidno sporo 
popunjavanjG trougla bojom. Mogu da dodaju i radunanje povr^ine 
drukdijih ill na drug! nadin sastavljenih detvorougaoni ka. 

:L 0 == B 

F' e: f j i; c r , k. o i_ i k, ir u e: u k. u [-■ r- .1 ir 
!'-• O U F5 s. I r -I R ■? 

lO'SREMSpOVRSINE 
20 LET cp=40 
30 LET lp=90 
40 DIM s(2) 

50 DIM p»(2,7) 

60 RANDOMIZE 

70 CLS : PRINT AT 10, 10; ''C*B+1 /2B* (A-C) " ; FLASH 1 ; AT 12,6;’’ 

UPAMTIi-0VU*F0RMULU!'! FLASH 0 
80 F'AUSE 100 

90 INPUT "l'!’ILri'2*I6RACA?i'‘;n 
100 IF n<l OR n>2 THEN GO TO 90 
110 CLS : PRINT AT 10, 6; " IME (na) «TbRACA?" 

120 FOR j=l TO n 
1 30 PR I NT AT 13,1 0 ; " I GRAC* “ ; j 
140 INPUT pt(j) 

150 NEXT j 
160 CLS 

170 FOR 1=1 TO n 

ISO LET a=INT (RND*7)+4 

190 LET b=INT (RND»:8)+3 

200 LET c=INT (RND*5)+3 

210 IF c>=a THEN 60 TO 180 

220 LET sa=a*8 

230 LET sb=bJt';3 

240 LET 5c=c»8 

250 FOR j=cp TO cp-l+sc 

260 PLOT lp,j 

270 DRAW INK 4;sb,0 

280 NEXT j 
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'■'0 F'LQT lp,cp+sc 
,'‘0 DRAW INK 2;sb,sa-sc 
'■ 1 0 DRAW I NK 2 ; 0 , - ( aa-sc ) 

■ 20 FOR _i=rp+5c TO cp-l+sa 

■ TO FOR k = lp-l-fsb TO Ip STEP -1 

■40 IF POINT (k,j) = l THEN LET k=60: GO TO ■360 
■50 PLOT INK 2ik,j 
:-t,0 NEXT k 
■■70 NEXT j 

ISO F'RINT AT 16-INT a/2, i3'+b;a; "=A'' 

390 PRINT AT 18, INT 1 l+b/2; b ; "=B" 

4iju F'RINT AT INT 16-c/2, 3; c ; "=0" 

410 PRINT AT 20,0;p$ (1 ) j ",'!>KOLIKA'*JE<>UKUPNA"’ ''POyRSINAOo-s-s-s-cwo-s- 
ROO INPUT ans 

430 IF ans=c*b+b/2)(i (a-c) THEN GO TO 710 
440 EiEEP 0.3, -8 

450 PRINT AT 20, 0; p$ (1 ) j ” , 'S'KOLIKA'S'JE'ipOVRSINA" ’ "PRA',-'OIJbAONIKA?'> 
460 INPUT r-c 

470 IF rc=c*b THEN GO TO 520 
480 BEEP O.B,-8 

490 PRINT AT 20,6; ",«POVRS!NA*PRAVOUGAONIKA:>JE*'';c»b; 

500 PAUSE 200 
510 GO TO 670 

520 PRINT AT 20, 0; p$ (1 ) ; "KOLIKA« JE*F'OyRSINA" ’ ''TR0UbLA'?-:>!>'4:>:>*:'S<> 
530 INPUT tg 

540 IF tg-~b/2^1i ia-c ) THEN GO TO 590 
5o0 BElF' 0.3, -8 

560 PRINT AT 20,0; "F‘0yRSINASTR0U6LA*J£*" ; b/2* (a-c) ; 


570 PAUSE 200 
53'.i GO TO 670 

590 PRINT AT 20, 0; p* ( 1 ) ; " , -sKOLIKAs-JE^UKUPNA" " ''PQyRSINA?'!'';’**'*'*** 
600 INPUT ans 

610 IF ans=c-Xb+b/2* (a-c) THEN GO TO 640 

620 BEEP 0.8, -8 

630 60 TO 670 

640 BEEP 0.3,8 

650 LET 5 ( I ) =5 ( 1 ) +1 

660 GO TO 730 

670 PRINT AT 20,0; "*-5-:’4-:>UKUPNA'4pOVRSINA'i JES '' ; c»b+b/2* (a-c) ; "■’"S !' 

680 F'AUSE 200 
690 CLS 
700 GO TO 740 
710 BEEP 0.3,8 
720 LET 5(1 ) =5(1 ) +2 
730 CLS 

740 PRINT AT 1 , 4; p$ ( 1 ) ; " ; s ( 1 ) ; "■s-S'S-:’" ; p$ (2) ; " S'! ; 5 (2) 

750 NEXT 1 
760 GO TO 170 
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1203 


Ovoj igri bi mo±da vi^e odgovarao naslov Testiranje memorije 
ill kako da upamtiti zadani broj. Broj svog teletona znam 
napamet, a drugs imam zapisane u notesu. Za ostals moram da 
pogledam u tslsfonski imenik. Pomodu programa Nizovi svoju 
sposobnost pamdenja povsdao sam toliko, da sada znam napamst i 
broj za obave^tenja o tadnom vremsnu - 95. 

Program iapisujs red brojeva na ekran. Kad vam se udini da ih 
znate napamet, pritisnite taster. Ako budete oklevaii, radunar 
de ga pritisnuti sam. Posle toga deka vas teSi deo zadatka: 
ukucati prikazani broj! 

U programu mo±ete malo i da varati. Da vam odamo tajnu: kad 
vas u 300. redu radunar upita za broj, izbriSite navodnike i 
ukucajte m$. Videdete da se nikada nedete zabuniti. 

Zadatak: Ispravite taj nedostatak, tako da varanje vi4e ne 
bude mogudno. U reienju upotrebite funkciju VAL$. 


10<'REM«NIZ0VI 
20 RANDOMIZE 
30 LET t=l 
40 LET sc=0 
50 LET tr=0 

60 PRINT PAPER 4; INK 9; AT 6, 4; " 1 . '>BR0JKE" 

70 PRINT PAPER 4; INK 9;AT 8, 4; “2. *B0JE" 

80 PRINT PAPER 4; INK 9; AT 12,2; "PRITISNI*1*ILI*2" 

90 LET a$= INKEY* 

100 IF a*='"‘ THEN 60 TO 90 
no BEEP 0.2,8 

120 IF a*<>“r‘ AND a*<>"2" THEN GO TO 90 

130 LET iiit= 

140 CLS 

150 PRINT PAPER 6; INK 9;AT 0, 4; "RED: " ; tr 

160 PRINT PAPER 6; INK 9;AT 0. 20; "REZULTAT: " ; 5C 

170 PRINT AT 6,6; 

180 LET c=INT (RND*6)+1 
190 FOR j=l TO t 
200 IF a$=''2" THEN GO TO 240 
210 LET r=INT (RNDilO) 

220 PRINT PAPER c; INK 9|r; 

230 60 TO 260 

240 LET r=INT (RNDt7) 

250 PRINT INKr;"»"; 

260 LET m*=ni*+STR* r 
270 NEXT j 
280 PAUSE 500 
290 PRINT AT 6,6; 

300 PRINT PAPER 4; INK 9; AT 16, 10; "TVDJ*ODGOVOR?" 
310 INPUT n* 

320 LET tr=tr+l 

330 IF n»=m* THEN 60 TO 460 
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340 BEEP 1,-12 
31d0 CLS 

360 PRINT PAPER 3; INK 9; AT 6, 4; "NI Z '-■JE: " 
370 PRINT AT 10,6; 

380 IF a$="2" THEN 60 TO 410 
390 PRINT PAPER c; INK 9;m$ 

400 60 TO 440 

410 FOR j=l TO t 

420 PRINT INK VAL (m$(j) 

430 NEXT j 
440 PAUSE 400 
450 GO TO 130 
460 BEEF' 0.3,12 

470 PRINT PAPER 4; INK 9;AT 18, 13; "TACNO* ! " 

480 LET 5C=5c:+t 

490 LET t=t+l 

500 PAUSE 150 

510 GO TO 130 
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Predstavi demo kretanje dva tela u gravi taci onom polju i u 
zavisnosti od maea oba tela. Matematidki problem i nije tako 
komplikovan: koristimo Newtonov zakon sile i kretanja. 
Izradunati rezultati prikazuju se na ekranu u obliku nacrtane 
putanje. Za crtanje takvih demonstraci oni h slika u vreme pre 
radunara troSilo se mnogo vremena. Mali spectrum zavrSi taj 
posao za oko pet minuta. 

Na podetku program prodita podatke. Uglove navodimo u 
stepenima, a program ih prevede u radijane i preda na daljnju 
upotrebu. Vrednosti uglova mogu biti i negativne. Podetne 
poloiaje oba tela dajemo koordinatama x i y, koje ved poznajemo 
iz Liobidajenog crtanja po ekranu. Koordinata x ne treba da bude 
veda od 170, jer demo Inade pokvariti tablicu s ulaznim podacima 
ispisanu na desnoj ivici ekrana. 

Nacrtali smo simulaciju kretanja Zeml ja-Mesec : telo s vedom 
masom krede se oko Sunca (na ekranu je samo delid te putanje), a 
telo 5 manjom masom tako da se njegova orbita sabira s putanjom 
vedeg tela. Slika je nacrtana na osnovu realnih podataka i 
predstavlja pribliian snimak dogadanja u vasioni. 

Radi svojih istradivanja vasionskih zakonitosti jednostavno 
prekucajte program i unesite podatke koje moiete da proverite. 

1 ovaj program de raditi mnogo br±e ako ga prevedete s 
kompi 1 atorom. 


1 CLS : PRINT "MODELSVASIONAi" : PRINT 

5 INPUT "Prvowtelo: Omasa?*"; ml; "*brz i na?*" ; vl ; "*ugao?*'' ; al ; " 
koord.x?*" ;x 1 ; "*koord . y?*" ; y 1 ; " *Druqo*t el o: Omasa?*'' ; ra2; ''* 
brzina?*'';v2; ''*ugao?*'' ; a2; ''*koord . x?*" ; x2; ''*kDord. y?*'' ; y2; 
ogravi taciona*kon5tanta?*'' ; g : CLS 
10 PRINT TAB 23; ''Ml = '';ml: PRINT TAB 23; ''vl = '' ; vl : PRINT TAB 
23; ''Al = '';al! PRINT TAB 23; "x 1 = '' ; x 1 : PRINT TAB 23; ''yl = '' ; yl : 
PRINT TAB 23; ''M2='';ra2: PRINT TAB 23; " v2=" ; v2: PRINT TAB 
23; ''A2='';a2: PRINT TAB 23; ''x2='' ; x2: PRINT TAB 23; ''y2='' ; y2: 
PRINT TAB 24;''b='';g 
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15 LET dt=0.1: LET al=al*PI/180: LET a2=a2*FT / Ibn: LET ; 
10: LET k2=:;2+10 

20 CIRCLE :-;l.yT.2: CIRCLE fi2,y2,2 
25 LET vlx=vl«C0S al: LET v2x=v2*C0S a2 
30 LET vly=vl»SIN al: LET v2y=v2)tSIN a2 

35'-'REM!’Rac un an j e 

40 LET ■fg=g*ml*m2/((;-;2-xl))(i(x2-xl) + (y2-yl)*(y2-yl)) 

45 IF x2=xl THEN LET phi=PI/2: GO TO 55 
50 LET phi=ATN ABS ( (y2"yl) / C<2-x 1 ) ) 

55 LET •flx=+g»COS phi*S6N (:;2->;l): LET ■f2x=-flx 
60 LET ■fly=fg*3IN phi ISSN (y2-yl): LET T2y=-fly 
65 LET al>;=+lx/ml: LET a2x='f2x/m2 

70 LET slx=vlx*dt+alx*dt»dt/2: LET 52x=v2x *dt+a2x lidDddt 
75 LET vlx=vlx+alx*dt: LET v2x=v2x+a2x*dt 
80 LET aly=fly/ml: LET a2y=-f2y/m2 

85 LET 5ly=vly»dt+aly*dt»dt/2: LET s2y=v2y*dt+a2y*dt*dt 
90 LET vly=vly+aly*dt: LET v2y=v2y+a2y*dt 

950REM*Crtanje * 

100 PLOT xl,yl: DRAW six, sly: PLOT x2,y2: DRAW s2x , s2y 
105 LET xl=xl+slx: LET x2=x2+s2x 
110 LET yl=yl+sly: LET y2=y2+52y 
115 GO TO 35 
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KI l3L_*=*CBOL_ I 


5609 

Ovaj obrazDvni program ojadade samopouzdan je svih osmo^kolaca 
i sredn jo^kolaca koje stroge nastavnice engleskog jezika 
neumorno ispituju sada^njs i proSlo vreme i particip prod! i . 

Savetujemo da program ukucate sami , jer dete tako uzgred 
d^oditi gomilu nepravilnih glagola. Grada programa je ved 
dovoljno objainjena u REM izrazima. Radi pobolj^anja savetujemo 
da upi^ete joS nekoliko engleekih nepravilnih glagola. Ako ste 
za to provide lenji, nemojte da se u dkol i vadite pomodLi nas. 
Radi poboljdanja moradete da popravite i instrukciju DATA u 16. 
redu. 




P U N R U L, .J PI N .J E : 


S H : p i t i 
I n P : .d r i n k 

P t e n s. : d p a n k 

f=' p a r t : d r u n k 

5 CLS : BEEP .2,28: 60 SUB 900: BORDER 3: 60 SUB 250: PRINT 
AT 7,6; INK 1; PAPER 4; BRI6HT 1; FLASH 1 ; "ZAUSTAVI* 
MAGNETDFON"; 

8sREIj>po5tavimQ*kDnstante*i'>pDAetne>vrednosti 

10 RANDOMIZE PEEK 23672: LET st=3: DIM e$(7,30): DIM mist) 

11 LET stBpen=l': LET 

12 LET 0$="": FOR i=0 TO 255: LET o$=q$+CHR$ i: NEXT i 

15 RESTORE 16: FOR i=l TO st: READ m(i): NEXT i 

16 DATA 9, 18,28: ■■REM*Broj*glagola*na*poiedinom*5tepBnu 
20 60 SUB 750: 60 TO 30 

25 BORDER 3: INK 1: 60 SUB 250 

2 9 *REM* -s g I a vn i *n)en i * 

30 PRINT AT 7,6; INK 3; "<>« **6LAVNI-5MENI '><><•*"; INK 1;AT 12,10;" 
Stepen:*"; PAPER 4; BRI6HT l;stepen 


40 

PRINT 

AT 15,10; 

PAPER 

4; BRIGHT 1 

; "T"; : 

PRINT 

"esti ranje" 

45 

PRINT 

AT 17,10; 

PAPER 

4; BRIGHT 1; 

1 "P"; : 

PRINT 

"onavl jan je 

50 

BEEP , 

.3,11: BEEF 

' .3,7: 

: BEEP .3,9: 

BEEP 

.7,2: PAUSE 15: 


BEEP . 

3,2: BEEP 

.3,9: 

BEEP .3,11: 

BEEP 

.5,7 



60 LET a$=INKEY*: IF at="" THEN 60 TO 60 
70 LET j=C0DE a$-48: IF j>0 AND j<=st THEN LET stepen=j 
PRINT AT 12,19; PAPER 4; BRIGHT l;j: 60 TO 60 
75 IF j=32 OR j=64 THEN BORDER 4: 60 SUB 400: 60 TO 25 
eo IF j=36 OR j=68 THEN BORDER 5: 60 SUB 700: 60 TO 25 
90 BEEP .2,15: 60 TO 60 
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1 00'->REM‘-> i 2 ab er i 

110 LET i=INT (RND*LEN r$)+l 

120 LET j=CDDE r*<i) 

130 LET r*=r$( TO i-l)+r$(i+l TO ) 

140 RESTORE 1000+J»10 

150 READ s$, 1 $, t*,p$,a$,b$ 

160 RETURN 


200<'REM*sastavimo*kDntrol ni^niz 
210 LET r$=o$ ( TO mlstepen)) 

220 RETURN 

250''’REM‘!zagl avl je 

260 PAPER 7: CLS : PRINT AT 2,7; INK 5;" i ";AT 

3,7;" INK 1; PAPER 5; "Engl eski *gl agol i " ; INK 5; PAPER 

7; "I"; AT 4,7; " — — " ^io^ 

270 RETURN 


300*REM*Ispi Semo*gl agol 
310 INK 1 
320 PRINT AT i , 1 ; *" 

PRINT c* 

330 PRINT AT i +2 , 1 ; " I n f : s* 
PRINT c$ 

340 PRINT AT i +4, 1 ; "Ptens: ■ 
345 IF a$="" THEN PRINT c* 
350 IF a»<>"" THEN PRINT " 
360 PRINT AT i +6, 1 ; "Ppart : ' 
365 IF b*="" THEN PRINT c$ 
370 IF b*<>"" THEN PRINT " 
380 RETURN 


BRISHT 1: PAPER 6: INK 2is$:: 


; BRISHT 1; 

; BRIGHT 1; 

PAPER 5; 
; BRIGHT 1; 

PAPER 5; 


PAPER 4; 

PAPER 4; 

INK 0;at; 
PAPER 4; 

INK 0;b*; 


INK 0;i*;: 

INK 0;t*; 

: PRINT c* 
INK 0;p*; 

: PRINT c$ 


400<' REM'p onavljanje 

410 GO SUB 200: BO SUB 250: INK 3: PRINT AT 7, 10; “PDNAVLJANJE: 
420 GO SUB 100: LET i=12: GO SUB 300: PAUSE 350 
430 IF r$="" DR INKEY$=">" THEN RETURN 
440 GO TO 420 


500*RbM''LinDSen je'-gl agol a 

510 INPUT AT 5,0;AT 1,0; BRIGHT I; INK l;(s$)” INK 0; LINE 
LINE y$' LINE zi 
520 RETURN 

oOO-REM'-'postavl jamo-'pi tan ja 

603 GO SUB 850 

605 FDR v=l TO LEN r$ 

610 GO SUB 100: GO SUB 500 

615 IF ;<*+y$+z$="" THEN LET w$="": RETURN 

620 LET n=<>;$<>i$)+2*(yt<>t$ AND (y$<>a$ OR y*=" " ) ) +4* (z$4 >p$ 
AND (z$<>bt OR z$="")) 

630 IF n THEN GO TO 650 

635 PRINT AT 12,1; INK 3; PAPER 6; FLASH 1 ; "PRAVILNQ" ; 

636 BEEP .2,15: PAUSE 3: BEEP .15,8: BEEP .15,20: BEEP .3,15: 
PAUSE 1 0 

637 PRINT AT 16, 7; ; 

640 LET prav=prav+l: GO TO 680 
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649 RETURN 

650 PRINT AT 12,1; INK 2; PAPER 7; FLASH 1 ; '’PoqreSno ! " ; 

655 FOR i=-10 TO -20 STEP -I: BEEP .03,1: NEXT i: PAUSE 20 
660 PRINT AT 12, l;e$(n) ; 

67u Let w$=w$+C-hr$ j 

675 PRINT AT 14, 1 ; "TaAno'^Me: ” : LET i = 14: GO SUB 330 
677 PAUSE 250 

660 IF THEN GO SUB 850 

685 LET j=12: LET i-20: SO SUB 800: POKE 23689,24 
690 NEXT v: RETURN 

7 0 0 ■•••■ R E M test ••• ' 2 n a n j a 

710 GC SUB 200: GO SUB 250: PRINT AT 6,11; INK 3; "TESTIRANJE" : 
LET kolo=l 

720 LET prav=0: LET GO SUB 600 

730 IF w$="‘' THEN RETURN 

735 LET 1=9: LET j=9: GO SUB 800 

740 LET r$=w$: LET kolo=kolo+l: BEEP .15,32: BEEP .1,27: GO TO 
720 

7 5 0 R E ti p or u k e '•> □ g r e S' k a m a 

755 f-OR n = l TO 7: READ e$In): NEXT n: RETURN 

760 DAT- : "PogreSan*je--4 n-f i ni t i ve . " 

761 DATA "PogreSan-'>je'-'past‘->ten5e. " 

762 DATA "pDgreSna*SLr-prva'-'--dva'-''obl 1 ka. " 

763 DATA "PogreSan'>je'-’pa5t’->participle. " 

764 DATA "TaAan-> je''-'5amo''>past''>ten5e. " 

765 DATA "PogreSna'=--‘5Li'---'oba*proSl a‘^=’vremena. " 

766 DATA "PogreSna‘--su''>sva''’=‘tr i ■•>obl i ka ! " 

800'-='REM''--'oAi st i mo---'deo’-ekrana 
SIO FOR k=j TO 1 
820 PRINT AT k,0;c$ 

830 NEXT k 
840 RETURN 


S50‘---REM'=-a spi SemD->re 2 ul tat 

855 LET i=9: LET j=9: GO SUB 800 

860 PRINT AT 9,1; INK 3; PAPER 6; BRIGHT 1 : "Kol o'^'" ; koi o; "/ " 

;LEN r$; 

870 PRINT AT 9,12; INK 3; PAPER 6; BRIGHT 1 ; "TaAno'^>’' ; prav; 

830 PRINT AT 9,21; INK 3; PAPER 6; BRIGHT 1 ; "RogreSno'^>" ; LEN w$ 

890 RETURN 


900'->REM'-'-'pri premi mo‘>AS/!/ 

910 RESTORE 950: FOR 1=1 TO 3 


920 READ 
930 READ 
940 NEXT 
950 DATA 
960 DATA 
970 DATA 
1000 DATA 
1010 DATA 
1020 DATA 


a$: FOR _i=0 TO 7 
1: POKE USR a$+j,I 
j: NEXT i: RETURN 
" A “ , 20 ,8,26, 32 , 32 , 32 , 28 , 0 
"S'* , 40, 16,56,64,56,4, 120, 0 
"D",40, 16, 124,8, 16,32, 124,0 
“probuditi'---‘se" , "awake" , "awoke" , 
"bi t i " 5 "be" , "was" , "been " , " " , " " 
"rodl t i " , "bear ", "bore" , "born" , " 


awoke" , " 
, "borne" 


"awaked " 
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1 030 DATA “duvat i ", "blow", "blew", "blown " , " " , " " 

1040 DATA "donet i " , "br i ng " , "brought " , "brought " , " " , " " 

1050 Data "aeAi ", "cut", "cut", "cut", 

1060 DATA "pi ti " , "drink" , "drank", "drunk" , " " , " " 

1070 DATA "oset 1 1 1 " , "-feel ", "tei t " , "-felt", " " , " " 

1080 DATA "zaboravi t i " , "-forget " , ''-forgot " , "forgotten" , " " , " " 
1090 DATA "imati ", "have", "had", "had", 

1 100 DATA " 1 ef/at i ", "lay", "laid", "laid", " " , " " 

1110 DATA "srest i ", "meet ", "met ", "met " 

1 120 DATA "plati ti ", "pay ", "paid" , "paid" " 

1 130 DATA "poloDi ti , -postavi ti " , "put" , "put" , "put" , " " , " " 

1140 DATA "trAat i " , "run" , "ran" , "run" , " " , " " 

1 150 DATA " vi det i " , "see" , "saw" , "seen " , " " , " " 

1160 DATA "mirisati " , "smel 1 ", "smelt" , "smelt", "smel led", "smel 
1170 DATA "pokvari ti " , "spoi 1 " , "spoilt" , "spoi It", "spoi led" , " 
spoi led" 

1 ISO DATA "baci t i ", "throw" , "threw" , "thrown '' , " " , " " 

1 190 DATA "pi sat i ", "write", "wrote" , "written", " " , " " 

00 DATA "bi t i , ‘^ml at i ti " , "beat " , "beat " , "beaten " , " " , " " 

10 DATA " post at i " , "become" , "became" , "become" , , " " 

1220 DATA "poAet i ", "begin " , "began" , "begun" , " " , " " 

1 230 DATA "krvar i ti " , "bleed" , "bl ed" , "bl ed" , " " , " " 

1 240 DATA "si omi t i ", "break " , "broke" , "broken" , " " , " " 

1250 DATA "gradi ti " , "bui Id" , "bui 1 1" , "bui 1 1 " , " " , " " 

1260 DATA "goreti , -pal i ti " , "burn" , "burnt" , "burnt" , "burned" , " 
burned " 

1270 DATA "kupiti ", "buy", "bought’', "bought", " " , " " 
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4004 

Program te ukucati svi oni koji smuCarska i slidna takmidenja 
ne gledaju drug! dan na reprizama, nego beie iz Skole ili 
po5la da bi s izgri±enim noktima pratili uspehe i neuspehe na^i 
sportista. Uz ovaj program je veoma praktidno imati televizor s 
daljinskim upravl janjem, u kom sludaju se na jednom kanalu gleda 
sportski prenos, a na drugom tabela koju ispisuje radunar- 

Program zahteva da za svakog takmidara koji startuje ukucate 
ime, zemlju i vreme koje postigne. Radunar de sam razvrstati 
takmidare po pravilnom redosledu. Ako neki takmi dar padne, 
pritisnite zvezdicu. 

Zbog vel i kog broja izraza REM, program izgleda du±i nego 4to 
u stvari jeste, al i zato nisu potrebni nikakvi dodatni 
komentari . Bkredemo vam samo pa£nu na red 1120. Ako minuti, 
sekundi i stoti del i di nisu upisani u pravilnom formatu 
navedenom u uputstvima, u tom bi redu mogli da iskrsnu problemi. 

Program motete da poboljSate tako da u obzir uzme sva 
meduvremena, krajnja vremena i zbirove. 

10 CLS ; LET pon”0 

20 PRINT ^bl^- PROC I TAJ<nJPUTSTVA " -- ^ " REM'^>--Z-^> 

preki ne'- 1 i stanje" '' ^ ^ ‘'REM''>'-> '=*1;:) '^'f 1 pr i mer '^f Oi"' '--"up i sa'-> 

vremena; ''^-vr erne" ' mi n , ••>50'->eek , ■■>17'-'etot i 

del ici " " " i sema'-"->''-"0___50 _ 1 7 " 

30 PRINT AT 1 1,0; "REM<--->i spi s''>vrG^mG?na'-je'->zaDStatak-'--”->">'->'->'--z a'- 
prvop 1 asi ran i m" " " "Rf£M->'->ako'- je- tekmi car'--"pao, 

pr i '-'up i sLi'’>vr emen a'->up i s i " " " " * o- ( z 'vez d i c u ) ” 

40 GO SUB 1400 / 

50 LET i^O 

60 DIM bli (71 , 15) : ■-■REM'-'takm. 

70 DIM q$(7i', 3) : '-REM'-z eml J e 

3 C5 DIM h ( 7 1 ) ; REM '■> v i'" e m e n a 

90 FOR 'f^l TO 71 
100 LET h (^ ) ==9999999 
110 BEEP .01,60-, 25*+ 

120 NEXT + 

130--REM-^^- 

1 4 C) REM I-:: o n t r o 1 a b r" . t a k imi c a r- a 
150-^>REM-' 

160 GO SUB 830 
i70--'REM'v' 

1 +3 0 f< FI M b 1 Li pis i m e n a 't a k i c a r' a =• p 7 b 0 *=' 

190-:>REM'-' 

2 Ltj 0 £^ U B 95 
210--REM--- 

220''>F^EM‘-' f 1 ■^bl'^' -^tO*^' '^b 1 *=• up i s'--"-'dr z a've '^bOi^' 

230'^>REM'-- 

240 GO SUB 1330 

250'-'REM'^> 

260'- F\EM''> -^bP- upi s''>'v'r emena ■=*b0>'' 

270'-'REM'^> 
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290 GO SUB 1020 

290 IF THEN GO TO 130 

300 LET cas^=t 

3 1 0'^>REr-T-' 

320 ^bO*=' -^ibO^- <-F\Eii* -n':' '^bO^' •^bO>=- "ib 1 p 1 asman ^p7i=' •^bO*=' 

:330-REh--- 

3.40<:-rEM'>i Eipr azni mo-l . mGsto 

350-REFI-- 

360 FOR TO 1 STEF 1 

.3 7 0 L E T q ^ ( f +• 1 ) " q ^ ( t ) 

3Bo L.E. i b'^j ( f 1 ) ~b'3j ( -f ) 

390 LET h (-f M ) ==h (i ) 

400 NEXT -f 
4iO<4:^EN--' 

4 2 Tj <:■ F< E r^i -- n a 1 . m e s t o ■-■ i ci li <■' ■-' p o d a c i ■-■ n p r' a v d ■-■ 

■•-•• ij. p ]. a, a.fi o g ■•-■ t a. k fn i <: a r a 

430’--REN'-' 

440 LET q^(i)^y$ 

430 LET h Cl i^^caa 
460 LET b$(l)^i$ 

470 FDR f=l TO i 

480 IF h(f)>h(t+l) THEN GO BUB 740 

490 NEXT f 
'0X> F'FN 

J 0 f'EN ' 43 1>^- 1 api ES'-'l i ste ^bO^- 
320 REN ■ 

530 1. t. E 

540 LET t^^^hCl) 

550 GO SUB 1140 
560 BRIGHT 1 
570'^>REM'^> 

5 8 0 • •• R E N -•> i 3 p i s ••-" [:) r v o g 
590<4-CEN-' 

600 RRINT " 1 Oi^- . o" ; TAB 3;b$(l);TAB 19;q$Cl);TAB 24; 

610 BRUGHT 0 

620--'REM-- 

6 3 0 ••> R E; M •-> i. 3 p i 3 •> o d •> 2 . •> d o p o s ]. e d n J e cj 

640'^-REN'-- 

650 FOR +=2 TO i 

660 LET t=hC-f)-h(l) 

670 GO SUB 1140 

680 PRINT i TAB 3;b-^(f);TAB 1 9 ; q$ ( t ) ; TAB 24|;e$;' 

690 IF INKEY*==^'‘z '■ OR INKEY$-"2’‘ THEN LET t^i 

700 NEXT f 

710 GO TO 130 

720OREN-' 

730‘>REM'--- pot, program! •^’bOf- 

740'-REN7 

7 5> O--^- F: E N ••> 3 u b r- D Li t i n e 

7' 6 0 P. E M pro ui e s t a n J & p o d a t a k a. 

770'^:T-<EN-- 

730 LET ::;$=q$Cf) 

790 LET q$ C -f ) ( t + 1) 

300 LET q-^ CtH-1 ) 

810 LET hopla=hCf) 

320 LET h ( f ) =^4i C-f + l ) 
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850 LE:T b* (f ) ==b* (f + 1 ) 

860 LET b$ ( + -1-1 ) =!■:* 

870 FJETLJRN 
8S0*REM* 

3 9 0 * R E-r M s u b K- o Li t i n e 

9 O 0 R Ei M +■ k o n t r □ 1 a b r o j a '■■■ ■*' * * * *■ * +■ * ■■■■■ t a k m i c a r a 

9 1 0*REM* 

920 LET i=i+l 

930 IF i=70 THEN F'RINT AT 8,5; " t o* je " ; ” ; TAB 5; 

" -^blt ■<+ !'■ -ibO*- 70 ■t+0>' .takmicar"; ' ’ ; TAB 5; " (zadnii) 

940 RETURN 
950*REM* 

9 6 0 R E M sub r o u t i n e 
970'>REM*upi si 'S'za-S' takmi cara 
980*REM* 

990 INPUT ” %1»' TAKMICAR -tbOK'"; LINE i* 

1000 IF LEN i4>15 THEN LET i*=i* . (1 TO 15) 

1010 RETURN 
1 020i-REM* 

1030<''REM'*subrout i ne* 

1 040<'REM*up i si ■■■'vr emena 
1050*REM'> 

1 060 INPUT " % 1 f- VREME % 0*- ", LI NE t. 't 
1070 IF THEN LET i=i-l: RETURN 

1080 IF LEN t*<>7 THEN BO TO 1060 

1 0905REM* 


1 100'>REM*pretvar an je*vremena<‘ 
dekadni obi i k 

1 1 1 0«REM* 

1120 LET t=(VAL (tf ( 1 ) ) *6000-+ 
VAL (tS(6 TO 7)))) 

1130 RETURN 
1 1 40*REM* . 

1 1 5 0 ■■■■' F: E M p r e t V a r a n j e V r e m e n a 
'■■"■-■■"■"■‘casovni ~ 

1 1 60*REM<> 


1170 LET e3i=STF:* t: LET cl=LEN ( 
1180 IF LEN e$=l THEN LET c=VAL 
1190 LET c=VAL ((e*((cl-l) TO 
1200 LET bl=t 

1210 IF bl>=6000 THEN LET bl=bl 
1220 IF bl>=6000 THEN GO TO 1210 
1230 LET b=INT (bl/100) 

1240 LET a=INT (t/6000) 


1250 IF b<10 THEN LET d*="0"-^ 


1260 LET d*=STR$ 
1270 IF c<10 AND 
1280 IF c=0 THEN 
1290 LET +*=STRt 
1300 IF a=0 THEN 
1310 LET e*=STR$ 
1320 RETURN 
1 330-REM;> 


b 

c>0 THEN LET +* 
LET +*="00": 
c 

LET et="«--"+d* 

^4- ” " -^d*-^- " '■■■ " "*-+* 


'■ i 2 ~ c a 5 o V n o g u S' 


(VAL /(t*(3 TO 4)) *100+ 


> * * <1- <■•■ i 2 ■:> d e k a d n D g * o b 1 i k a * u * 


STR* t) 

e*: 60 TO 1200 
cl))) 


-6000 


BTR* b: 60 TO 1270 


= "0"+STR* c: bU TU 13.00 
GO TO 1300 

+ "<>"++*: 60 TO 1320 
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] "'4';' F'FM subroutine 
1 ' i ' ' F‘ b M ■ u p i s ■■■■' z e m 1 j e 

F'CM ■ 

1- uj INHIT " ibJ4' ZEMLJA fbOK! " ; LINE v 
1S80 IF LEN yt<:>3 THEN 60 TO 
1 f. El URN 
1 TO'j Rt ri 

1 4 I 0 ■■'F.EiM 'subrout i ne* 

1 4 2 0 ■■■' F^ E M ■ ■■■■ 1 e t - 5 c r o 1 1 r e d a * 

1 4 3 0 * R E M LI ■■■■■ u p u t s t V i iTi a 
1440*REI'1!' 

1450 LET aS="<' i ' rjosumal ordosstarta-'' 
1460 FOR i=31 TO 32-LEI\l a$ STEP 
1470 LET d2==32-i 
1480 PRINT AT 21,1; a* 11 TO d2) 

1490 F'AUSE! 5 

1500 IF CODE INKEY* >13 THEN 
1510 NEXT i 

1520 FOR 1=31 -LEN a* TO 0 STEP -1 
1530 PRINT AT 21,i;a't 
1540 PAUSE 6 

1550 IF CODE INKEY*>13 THEN 
1560 NEXT i 

1570 FOR i = .;LEN a*)-! TO 0 STEP -1 
1580 LET dl=LEN a*+l-i 
1590 PRINT AT 21,0;a*(dl TO LEN a*) 
1600 PAUSE 5 

1610 IF CODE INKEY*>13 THEN 
1620 NEXT 1 
1630 60 TO 1400 


RETURN 


RETURN 


RETURN 
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1427 

Program te dobro dodi uditeljima ili onim dacima koje zanima 
statistika ocena u razredu. 

U radunar 5e unosi ime predmeta i broj udenika koji imaju ovu 
ili onu ocenu. Radunar de zatim izradunati prosednu ocenu i 
grafidki prikazati raspored ocena. 

Program je veoma kratak, zato ne nedostaju mogudnosti za 
pro^irenje. Pisan je tako pregledno da dodatni komentari nisu 
potrebni . 



20*REM* 

30*REIj4-*-s-UP I S I VAN JE'i'PODATAKA 
40OREI1* 

50 INPUT AT 0,0; "UPISIVANJE'S-PODATAKA"; AT 3,0; "UPISI spREDMET: 
;AT 3, 16;F$;AT 5,0; "UFjSr!>BR0J':>0CENJENIH*LCENIKA<' (dolO) : " 
;AT 7,5; "0DLICN0'';AT 7, 20; A; AT 8, 5; "VRL0*D0BR0" ; AT 8, 
20;B;AT 9, 5; "DOBRO" ; AT 9,20;C;AT 10, 5; "DOVOLJNO" ; AT 10, 
20;D;AT 1 1 , 5; "NEDOVOLJNQ" ; AT 11,20;E; 

60 DIM A(5): LET A(1)=A: LET A(2)=B: LET A(3)=C: LET A<4)=D: 
LET A(5)=E 

70*REM4 

B0;R£M»*sCRTANJE'vK00RDINATA 

90«REM'> 

100 PRINT TAB 10; Ft 
no PLOT 24,0: DRAW 0,160 
120 FOR N=0 TO 160 STEP 16 
130 PLOT 24, N: DRAW 5,0 
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140 IF N/80=INT (N/80) THEN DRAW 5,0 
150 NEXT N 

160 PRINT AT 21,1;0;AT 11,1;5;AT 1,0; 10 
170*REI>I* 

1 80»REM !>s*-sCRTANJE S'STUPCA 


190OREM* 

200 FOR N=0 TO 4 

210 LET U=16*A(N+1): LET V=48+40*N 

220 PLOT V,0: DRAW 0,U: DRAW 10,6: DRAW 24,0: DRAW 0, 
V,U: DRAW 24,0: DRAW 0,-U: DRAW -24,0 
230 FOR 1=0 TO U STEP 4 
240 PLOT V+24,I: DRAW 10,6 
250 NEXT I 

260 PRINT AT 20,7+5»N;5-N 
270 NEXT N 


280OREM* 


290*REM***<>PR0SECNA*0CENA 


300*REM* 

310 LET S=0: LET K=0 
320 FOR N=1 TO 5 
330 LET S=S+A(N))K6-N) 

340 LET K=K+A(N) 

350 NEXT N 

360 PRINT AT 0,28;.01*INT (S/K*100+.5) 

370 PAUSE 0 

380 CLS 

390 60 TO 50 
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SEsrJi^iEisT i=-R:s-r I JLJ 


27B 

Ova rutina poma±e avima obi£:niin Zemljanima da bar delimidno 
razumeju iargon nekih programera u ma^inskom jeziku, koji 
Lipotrebl javajLi heksadeci mal ni brojdani aistem. 

U 10. redu ukucate hekaadaci mal ni broj koji ielite, 
aastavljen od brojki O do 9 i velikih slova A do F. U 70. radu 
taj broj ispi^a se u dacimalnom obliku. Painja: program ne 
kontroli^e da 1 i sta zaista ukiicali samo znakova koje ste moral i 
da ukucata. 


5*Rhl'1''j6''pr5ti ju 
10 INPUT LINE a$ 

15 IF A$=“*ST0P9'' THEN STOP 
20 LET Ien=LEN a* 

30 LET dec=0 

40 FOR n=LEN TO 1 STEP -1 

50 LET dec=dec+ (CODE a* (n) -48-7* (CODE a$ (n ) >57) ) *2'' (4* (LEN-N) ) 
60 NEXT n 

70 PRINT ‘'*-;TAB (5-LEN) ; A$, dec 
80 60 TO 10 

90 SAVE "16*pr5ti ju" LINE 5 
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709 

Ovo je joS jedna od onih stvari koje nazivamo alatima u 
programiraju (engl. utility). Jedina praktidna vrednost programa 
je to dto saznamo gde i kako je organizovana memorija u 
radunaru. Prvo preko sistemskih promenljivih pogleda koliko 
memorije ima u RAM— li, odakle dokle je prostor za mikrodrajv 
(microdrive), gde se skriva program u bejsiku, gde 5U 
promenljive i koliko ima elobodne memorije. Nacrta nam i 
eventualne gra-fidke znakove (UD3) . U 30. redu prikazano je kako 
moiete na jednostavan nadin da radunaru napraviti dasovnik. 

S programom dete nauditi da upotrebl javate i nekoliko 
sistemskih promenljivih, koje de vam u programi ran ju i te kako 
dobro dodi . 


K p K ri .J e U fP (4 c. U N F) fP U • 1- 


f -l •=; rri i"' r i ..i -Hii F+l hi : 


r-'l 1 c I"' o d r i s rr» a f- : a 

j t. o V a 

FS a s i c p r o g r a iti : S 4- S b a 

.J t Q a 

F' r o m e n l j i v e : '■■T b a 


F-"' r a z r"i a rri a rn cj r i ...i -ii ; 

...i t. c. ‘o' -St 

U R E: M E : '3 1- S -■ ® 


1 1 p, rs ■ FI B C D E F e. H I ■...) K U M N O P O R 

I...I 


10 DEF FN p(n)=PEEK n+256!»PEEK (n+1) 

20 CLS : DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175: 

^ PLOT 40,158: DRAW 167,0: PRINT AT 1 , 6; "KAK0*JEOU<>RACUNARU?" 

' ;AT 4 , 1; "Memori ja^RAM:******'”';; <1 !'■ ( 'lOt FN p (23732) -16383) / 
1024; "*K'' ; AT 6, 1 ; "Microdri ve*map : ";FN p (23631 ) -23734; “ 

*bajtova";AT 8, 1; "Basic-program: ";FN p(23627)-FN p( 

23635) ; "*bajtDva" ; AT 9,1; "Promenl ji ve: FN p ( 

23641 )-FN p (23627)-!; ‘‘*bajtova" ; AT 11,1; "Praznac-memor i ja: *" 
;FN p( 23730 )-FN p (23641 ) ; "Obajtova" ; AT 19, 1 ; "UDG: 

ABCDEFGH I JKLMNOPQRBTU " 

30 PRINT AT 20, B-,"ftSCBEF6HIJIiLMH0PQRSTLI" 

40 PRINT AT 14, 1; "VREME:*«>**<’<>»*«*'’''; INT ( (FN p (23672) +65536* 
PEEK 23674) /50) ; "*sek. ": 60 TO 30 
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Ovaj program pokazuje podelu meraorije u radunaru i upotrebu 
dve naredbe koje mo±da nisu tako poznato podetnicima. U 42. redu 
definite se funkcija p, kojom se dita sadriaj dve uzastopne 
lokacije u memoriji. U 69. redu sakupljene su sve vaine adrese u 
memoriji. Sta one znado, otkridete u prirudniku za ZX spektrum. 

Petlja izmedu 69. i 73. reda ispi^e trenutno start je u 
memoriji. Ako ste program prekucali baS onako kako je na^tampan, 
bejsik s promenl ji vi ma zauzede nula bajtova. Ako se to ne 
dogodi, popravite konstante a u 70. redu za dutinu programa u 
bejsiku, odnosno u 71. redu za broj promenl jivih. 

Program motete naredbom MERBE da poveiete s nekim vedim 
programom i na taj nadin detaljno pogledate koliko je dug. 
Program pokazuje i kako se podrudje za mikrodrajv i veze menja s 
pri kl judenjem intertejsa 1 i otvaranjem novih kanala. 


6 1 -- REM -- pr ain->za '-'‘ mjer en ie'i’duz i ne'^proor ama'^i od 

62 DF FN p(p)=F'E:E:K p + 25ii*PEEK (p + 1) 

63 DATA 23631 , 23635, 23627, 23641 , 23649, 23651 , 23653, 23730, 23675, 


64 DATA "ekran*! pel " , "microdrive", "kanali ", "BASIC" ■ "promen. ", 
edit*f ile", "work!;! nput " , " kal kul ator " , "SLQ BODNO " . "masi'n. 
jezik", "Ui-D*Gk", "K*R*A:'J" 

65 DIN a* (12, 12) 

66 RESTORE 0064: FOR n=l TO 12: READ a«(n,l TO ): NEXT n: 
RESTORE 0063 

67 F'R I NT " ■ kpocetak-^’-'k-T-podruc ie< "m em. -^ bavtova" ’ ’ T AEi 3 ; " 1 6384 " 
;TAE! 13; alt (1,1 TO 10); TAB 26;"v7350" 

68 LET pr = 23.734 

69 FOR n=l TO 10 

70 LET a=0: READ p: IF p=23627 THEN LET a=S49 

71 IF p=23641 THEN LET 3=191 

72 F'FlINT TAB 3l;pr;TAB 1 3 ; at ( n+ 1 ) ; TAB 27 ; F'N p(p)-pr-a: LET 
pr=FN p(p) 

73 NEXT n 

74 PRINT ’ ' TAEi 3;pr;TAB 13;a*(12) 

75 PAUSE 0: CLEAR : STOP 
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Rutina u ma^inakom jeziku od ukupno 78 bajtova pomera gornje 
dve tredine alike prema vrhu ekrana. Ukucajte glavni program i 
startujte ga naredbom RUN. Kad vam se pokaie poznati natpis 
Sinclair Research Ltd., prepi^ite ili s kasete uditajte 
demonstracioni program. 


l'>REM'-'pDkreni"prDgram*s*RUN''i*ucitaj''prDgram«"Demo" 

10 CLEAR 32499: FOR a=32500 TO 32577 
20 READ x: POKE a.x: NEXT a: NEW 
30 DATA 33,32,64,17,0,91,1,224,0,237,176 
40 DATA 33,0,65,17,0,64,1,0,7,237,176 
50 DATA 33,0,91,17,0,71,1,0,1,237,176 
60 DATA 33,0,72.17.244,71,1,32,0,237,176 
70 DATA 33,32,72,17,0,91,1,244,0,237,176 
80 DATA 33,0,73,17,0,72,1,0,7,237,176 
90 DATA 33,0,91,17,0,79,1,0,1,237,176,201 


tdemco ^c=t^c3l 1 


1 -sREMi’Demo 

10 PR I NT BR I SHT 1 "T Ok ; " MO J *M I KRD " 


20 PLOT 0,47: DRAW 255,0 

30 FOR n=0 TO 10*PI STEP . 1 

40 PLOT 127,48: PLOT 127+60»SIN n,48 


50 RANDOMIZE USR 32500: NEXT n 
60 FOR n=0 TO 127: RANDOMIZE USR 


32500: PAUSE 2: NEXT n: 60 


TO 30 
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1054 

Program od 96 bajtova napisan u maSinskom jeziku na ekran 
ispiSe sve promenljive koje upotrebimo u svom programu u 
bejsiku. Treba upisati samo podetnu adresu; tamo de biti 
postavljen ma^inski kod skriven u 90S0- redu programa u bejsiku. 

Program startujemo na podetnoj adresi . Kad ga upiSete i 
pokrenete prvi deo, motete sve zajedno da izbriSete naredbom 
NEW. Prilikom sledede upotrebe ukucate naredbu RANDOMIZE USR 
<broj prve adrese) . 

9000*REM*1 i Stan je*promenl ji vi h 

9010 INPUT "pacetna''’adre5a'9" ; a 

9020 FOR x=a TO a+93 

9030 READ b 

9040 POKE x,b 

9050 NEXT X 

9060 RANDOMIZE USR a 

9070 STOP 

9080 DAT A 253 , 203 , 002 , 1 34 , 042 , 075 , 092 , 062 , 0 1 3 , 2 1 5 , 062 , 032 , 2 1 5 , 

126,254, 128,200,203, 127,040,062,203, 119,040,031,203, 111, 

040.009.214. 128. 017.019. 000. 215. 025.024. 225. 214. 096. 215, 

062 , 036 ,215, 062 , 040 ,215, 062 , 04 1 , 035, 094 , 035, 086 , 035 , 024 , 

234,203, 111,040,019,214,064,215,035, 126,203, 127,032,003, 

215.024.247.214. 128. 017.006.000. 024.211 .214.032.024.216, 
203,111,032,243,198,032,215,062,036,024,211 


Sl_CJBODINl<=» l-IEIMOFt 


248 

Veoma je praktidno ako za vreme program! ran ja motete u svakom 
trenutku pogledati koliko jo4 ima slobodne memorije. To vam 
kazLije program napisan u bejsiku, inade dug samo 14 bajtova. 
Eejsik je potreban samo radi lakdeg unoSenja podataka i 
demonstraci je. 

Program podinjete 9000. redom, zato da biste ga naredbom 
MERGE mogli bez problema dodati drugim programima. Kad 
potprogram pokrenete od reda 9000., modete da izbridete redove 
9000-9080. i upotrebl javate samo naredbu PRINT USR i broj koji 
unesete kao startnu lokaciju. 

9000->REM~"slDbodna''meiiiori ja 

9010 INPUT "pocetna*adresa*" ; a 

9020 FOR x=a TO a+13 

9030 READ b 

9040 POKE x,b 

9050 NEXT X 

9060 PRINT USR a 

9070 STOP 

9080 DATA 033,000,000, 057,237,091 , 101 , 092, 167,237,082,068,077, 

201 
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4050 


Koristan program za prenumer i san je redova programa napl 5 an je 
u ma^inskom jeziku, a radi lak^eg uno^enja objavljujemo ga kao 
program u bejsiku. Ima 382 bajta. 

Radunar prvo zahteva podetnu adreau, odnosno adresu na kojoj 
Ce u memoriji biti program. Kad smesti postavi podatke na pravo 
mesto, treba da mu ka±ete i broj reda od kojeg program mora da 
prenumeride i korak izmedu redova- 

Kod 5vih korisnidkih programa iz ove serije ulazni podatki 
upisuju se na adrese gde podinje privremena memorija za dtampad 
(printer buffer). Ako delite da program za renumeraciju 
upotrebite vide puta, svi naredni startovi treba da budu u 9060. 
redu. 

Red DATA je upravo mukotrpan, jer treba prepisati celu zmiju 
brojeva. Presecite ga na vide redova, pa dete lakde ispraviti 
eventual ne gredke. 


9000*REM*Prenumer i san j e 

9010 INPUT ''pQcetna»adre5a*";a 

9020 FOR x=ai TO a+381 

9030 READ b 

9040 POKE >;,b 

9050 NEXT X 

9060 INPUT "broj -prvog -reda*" ; c 
9070 INPUT “korak -jzmed ju-'Tedova '" '' 5 d 
9080 LET hl=INT (c/256) 

9090 LET Il=c-256*hl 
9100 LET h2=INT (d/256) 

9110 LET 12=d-256*h2 

9120 POKE 23296,11: POKE 23297, hi: POKE 23298,12: POKE 23299, h2 
9130 RANDOMIZE USR a 
9140 STOP 

9150 DATA 042,000,091 ,124, 181,200,042,002,091,124, 181,200,042, 

083 . 092 . 237 . 09 1 . 000 . 09 1 . 205 .138.247. 048 . 022 . 070 .114.035, 
078,115,035,113,035,112,035,229,042,002, 09 1 , 025 ,235,225, 

205.127.247.024.229.042.083.092.035.035.035.035.205.041, 

247.210. 246.246.034.093.006. 000. 004. 035. 126.254.046.032, 
003,235,024,236,254,014,032,242,035,035,035,035,035,035, 
126, 254 ,053,040,004,254,013,032,234,1 20 , 254 , 004 , 040 , 0 1 6 , 
048,227,213,098,107,245,062,048,205,136,015,241,060,209, 

024.236. 066.075.213.033. 000. 000. 017.232. 003.205. 032. 247, 

017.100. 000 . 205.032.247.030.010.205.032.247.010.214.048, 

095.025.068. 077.042. 083. 092. 035.035. 205. 138. 247. 056.003, 
225,024, 153, 126, 185,048,007,035,035,205, 127,247,024,235, 
035, 126, 184,056,245,043,043,078,043, 102, 105, 193, 197,229, 

017.232.003.205.018.247.017. 100.000. 205.018.247. 030.010, 

205. 018.247.030.001. 205.018.247. 003. 151 . 002.003.002.003, 

225. 125.002.003. 124.002.003. 151 . 002.225. 195.077.246. 042, 
083,092,035,035,205, 138,247,208,084, 093,035, 035, 205, 127, 
247,229,055,237,082,043,235, 115,035, 114,225,024,231,062, 
048,167,237,082, 056 , 003 ,060,024,248, 025 , 002 , 003 ,201, 0 1 0 , 
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003 , 214,047,061, 200 , 025 ,024,251,126, 205 ,138,247, 208 , 254 , 

234.032.013. 035. 126.254.013.032.250. 035.035. 035.035. 035, 

024 . 234 . 254 . 034 . 032 . 009 . 035 .126.254. 034 . 032 . 250 . 035 . 024 , 
221,254,013,040,232,205,182,024,040,212,254,237,040, 027 , 
254 , 236 , 040 , 023 , 254 ,247,040,019,254, 240, 040 ,015, 254 , 229 , 

040.011.254.225. 040 . 007 .254.202. 040 . 003 .035.024.181.035, 

126.254.048.056. 175.254.058.048. 171.201. 126.205. 182.024, 
040 ,251, 254 , 013, 035 ,032,245,229,213,237,091,075,092,167, 
237,082,209,225,201 




1433 

Programom od 132 bajta izbri^ete sve redove s instrukcijom 
REM u programima napisanim u bejsiku. 

Program ne objavljujemo da bi na^i ditaoci krali programe, 
menjali REM redove i zatim ee potpisivali kao autori novih dela, 
nego zato 4to se ponekad program previse "razvude". Dragocen 
prostor u memoriji mo±ete ponovo da povratite ako uniitite sve 
komentare u REM izrazima. To dodu4e nije pametno, jer sem vas 

iraktidno niko nede znati Sta program radi . Savetujemo vam da 
rajnju verziju programa komentariSete i tako izbegnete 
eprijatnosti koje mogu da nastanu prilikom slededeg 
apravljanja, kad budete mo±da ne^to i zaboravili. 

'00''REM*br i san j e*REM*naredb i 
10 INPUT "pocetna^adresa*" ; a 
20 FOR K=a TO a+131 
'0 READ b ■ 

0 POKE x,b 
9050 NEXT X 
9060 RANDOMIZE USR a 
9070 STOP 

9080 DATA 042, 083, 092,024,031, 229,035,035, 078,035,070,035, 126, 

254.033. 056.250.254.234.032.026. 003.003. 003.003.225. 197, 

205,024,016, 193,011, 120, 177,032,246,237,091,075,092, 167, 

237,082,208,025,024,214,035,126,254,013,032,008,225,009, 

035 . 035 .035.035.024.231.254.014.032. 007 . 035 . 035 .035.035, 

035 . 024 . 23 1 . 254 . 033. 056 .227.254.034. 032. 008. 035 .126.254, 

034.032.250. 024 .215. 254 . 058 . 032 .211. 084 . 093 .035.126.254, 

013.040.209.254.033.056.246.254.234.032.236.098. 107. 197, 

205.024.016.193.011.126.254.013.032.245.225. 035 , 035 ,113, 

035, 1 12,043,043,043,024, 160 
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Skoro i5tD onoliko Sesto kao prenumerlsan je, pomade nam i 
potprogram za brisanje redova u programu napisanom u bejaiku. To 
je i te kako korisno, kad iz nekoga etarog programa ±elimo da 
upotrebimo samo mail deo. Stari program skratimo, a zatim ga 
prema potrebi prenumer i 4emo i dodamo novom programu. Rutina ima 
samo 42 bajta i brzo briSe duie blokove. 

Program se startuje u redu 9000. Ako ielite da ga upotrebite 
vi4e puta, svi slededi startovi su u 9060. redu. SuviSe dugi 
program!, gde poslednji red ima broj vedi od 9000, 
prenumeri 4i ti , ili prenumer i 4 j te potprogram za brisanje redova. 
Samo tako dete sve zajedno smestiti u radunar. 

9000*REM*br i san j e '“redova 

9010 INPUT "pocetna'“adresa*" ; a 

9020 FOR x=a TO a■^41 

9030 READ b 

9040 POKE x,b 

9050 NEXT X 

9060 INPUT ''od*reda<*brDj*'' ; c 
9070 INPUT "do'““reda'''broj*" ; d 
9080 LET hl=INT (c/256) 

9090 LET Il=c-256»hl 
9100 LET h2=INT (d/256) 

9110 LET 12=d-256*h2 

9120 POKE 23296,11: POKE 23297, hi: POKE 23298,12: POKE 23299, h2 
9130 RANDOMIZE USR a 
9140 STOP 

9 1 50 DAT A 042 , 000 ,091,237,091, 002 ,091,124,181, 200 ,122,179,200, 

213,205, 110,025,227,035,205, 110,025,209, 167,237,082,200, 
216,235,122,179,200,213,229,205,024,016,225,209, 027 , 024 , 

243 
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744 

Delove memorije mo± 0 te da prepiSete na druge adrese. Kako je 
to kod naiih korianidkih rutina vet uobidajeno, prvo unesete 
podetnu adresLi za uno^enje matinakog koda, a zatim upitete staru 
adresu, novu adresu i broj bajtova koje ielite da prenesete. 

Program ima 33 bajta. Kao i svi iz te serije, mote da se 
Lipite u bilo koji deo RAM— a. Posle prvog starta program u 
bejsiku vi^e nije potreban, po^to se svi podaci unose neposredno 
naredbom POKE. Na adresu 23298 postavite niti, a na adresu 23297 
viSi bajt podetne adrese. Na isti nadin unesete i novu adresu na 
23298 i 23299. Broj bajtova koje telite da prenesete upiSete na 
23300 i 23301. 

9000'>REM*k op i r an j e*memor i j e 

9010 INF'UT '‘pocetna<’adresa*" ; a 

9020 FOR x=a TO a+32 

9030 READ b 

9040 POKE ;;,b 

9050 NEXT X 

9060 INPUT ''5tara*adresa'-" ; c 
9070 INPUT "nava^'adresa*" ; d 
9080 INPUT "broj*ba jtova*" ; e 
9090 LET hl=INT (c/256> 

9100 LET ll=c-256*hl 
9110 LET h2=INT (d/256> 

9120 LET 12=d-256*h2 
9130 LET h3=INT <e/256) 

9140 LET 13=e-25i*h3 

9150 POKE 23296,11: POKE 23297, hi: POKE 23298,12: POKE 23299, h2: 

POKE 23300,13: POKE 23301, h3 
9160 RANDOMIZE' USR a 
9170 STOP 

9180 DATA 042,000,091,237,091,002,091,237,075,004,091, 120, 177, 

200, 167,237,082,200,025,056,003,237, 176, 201 , 235,009,235, ' 
009,043,027,237,184,201 


124 korisnidki program! 


CFTfihJE 





3050 


Ovo je veoma kratka verzija programa koji de vam olak^ati 
crtanje slika na ekranu. List mi 1 i metarskog papira, na dijoj 
biste mreii pre toga skicirali sliku, ne bi bio na odmet. 

Program je sastavljen od dva samostalna programa. Prvi , od 
10- do 40- reda, u gra-fidkom modu oblikuje sXova d, ^ i Znaci 
se nalaze ispod tastera C, S i T- Ovo programde moiete da 
spremite i da ga upotrebite u svojim bududim projektima. 

Pr avi program je tek od 50- reda dalje- Kad ga startujete, 
prvo proditajte kratko uputstvo- Radunar vas upita za boju 
papira i tinte- Te boje ne motete posle da menjate, sem ako 
sliku ne izbriSete- Uno^enjem tih podataka program je spreman za 
crtanje- Na dnu ekrana vidite redove u kojima su napisane 
koordinate tadaka x i y i tasteri za specijaine funkcije- 
Pokretanjem pograma u ishodi^tu koordinatnog sistema (0,0) 
pokaie se tadka od koje crtate ili se pomerate- 

Tadku pomerate tasterima: R - levo gore, F - levo, C - levo 
dole, T — gore, V — dole, Y — dsno gore, H — desno i B — desno 
dole- Ako tadku vodite velikim slovima, ona se samo pomera; ako 
pritisnete mala slova (bez SHIFT), tadka ostavlja trag- 

Pri crtanju mnogo pomade i taster G koji ima trostruko 
znadenje: mail g "upali" tadku na mestu gde se tog trenutka 
nalazi, veliki G je "ugasi" ili pokaie poloSaj nevidljive tadke, 
ako je po ekranu samo pomeramo- 

Na dnu ekrana navedene su funkcije CLEAR, preskok, linija, 
polukrug, krug i SAVE, koje zamenjuju mukotrpan rad prilikom 
pomeranja tadke. Naredba CLEAR bri^e sliku na ekranu i podne na 
podetku, dakle s uno^enjem boja. Naredba za preskok prenese 
tadku do koordinata koje navedete, a pri tom ne izbri^e staru 
tadku- Ako je to potrebno, morate to da napravite sami - 
Pritisnite veliki G: naredba za liniju premesti tadku do 
koordinata koje ste unel i i do tamo povude liniju. Naredbom za 
polukrug nacrtate polukrug od ishodi^ta do tadke koju unesete. 
Naredbom za krug jednostavno nacrtate krug sa centrom u trenutno 
detinisanoj tadki i sa zadatim polupredni kom. Naredba SAVE 
spremi sliku s ekrana i zaustavi program- 

Ako tog trenutka da nemate vremena da nacrtate sliku, 
spremite je na traku da biste je zavrSili jednom kasnije- 
Postupak je slededi: prvo uditajte program Crtad, a zatim sa 
LOAD SCREENS i nedovr^enu sliku. Program startujte od 130- 
reda- 


10=-'REM->Crtac 

20 FOR d=0 TO 7: READ e: READ f: READ g 

30 POKE USR "c"+cl,e: POKE USR “s"+d,f: POKE USR "t''+d,g: NEXT 
d 

40 DATA 36,36,36,24,24,24,60,60, 126,64,64,6,64,60,24,64,2,96, 
60,60,126,0,0,0 
50 PAPER 7: INK 0:. CLS 

60 PRINT 'TAB 2; INVERSE 1 ; '■*UPUTSTVA<^ZA?PR0GRAI1<^'^CrtaC''’': 
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70 PRINT ’ ’ "■■:>v<>PoCetni'>'i’polo7aj*<>taCkeije*u’n;oQrdinatnom<> 

1 shod! Stu* (0, 0) *u*<'levom'!don jem'-'uglu. *Crni -S'i 5pi3*nadnu-!‘ 
ekrana*pokazuje**t!Qordinate<’taCke. " 

80 PRINT ’ " i'CrtamDipomocu-itastera* (taste^■*■+CAPS'^SH^FT*=>■!■samo■■■■ 
polneranje) : " 

90 PRINT " P - 1 

- ■■■doi e' r ■■■ -"-'I evo''-''gore‘'''"'-= - ■•^y^-^desno’^'-gore-'x ■■ “*I evo^dol 

Ob'- - ■'desno'dol e ” 

100 PRINT ’ " -s-X’Tast er** 6 '''”''nam** 2 a**t renut akOpDkaTe-'mestD-'na* 
kojeffl* 5 e*naI az i *nevi dl ji vai’taCka. ■sDruge^f unkci jenavedene'-’ 
5u'>u*pDdnapisu. " 

120 PRINT #1 ; ''*»ZA*PDCETAk:sCRTANJA*PRITISNI 
&UMICU!": BEEP .1,20: PAUSE 0 
130 BEEP .05,20: INPUT "oizaberi <'boju*podl oge* (0-7) A 

140 BEEP .05,20: INPUT "*Inaberi *boju*oI ovke* (0-7) : B 

150 IF A>7 OR B>7 THEN 60 TO 130 
160 PAPER A: INK B: CLS 
170 LET ;:=0: LET y=0 
180 GO SUB 620 

190 PRINT #0;AT 0, 14; " 1=CLEAR'-«2=PRESKDK" 

200 PRINT #1 ; "3=LINI JA<‘4=poluKRU6*5=KRU6!>6=SAVE" 


210 

IF 

INKEY*=“" THEN 60 TO 210 




220 

IF 

INKEY$="t" 

THEN 

LET y=y+l: 

60 SUB 620 



230 

IF 

INKEY$="v" 

THEN 

LET y=y-l: 

60 SUB 620 



240 

IF 

INKEY$="F" 

THEN 

LET K=i;-1: 

GO SUB 620 



250 

IF 

INK:EY$="h" 

THEN 

LET x=x+l: 

GO SUB 620 



260 

IF 

INKEY$="r" 

THEN 

LET K=x-1: 

LET y=y+l: 60 

SUB 

620 

270 

IF 

INKEYt="y" 

THEN 

LET x=K+l: 

LET y=y+l: 60 

SUB 

620 

280 

IF 

INKEY$='‘c" 

THEN 

LET >;=>;- 1: 

LET y=y-l: GO 

SUB 

620 

290 

IF 

INKEY$="b'‘ 

THEN 

LET x=;-; + l: 

LET y=y-l: GO 

SUB 

620 

3<J0 

IF 

INKEY$="T" 

THEN 

LET y=y+l: 

GO SUB 640 



310 

IF 

INK£Y$="V" 

THEN 

LET y=y-l: 

GO SUB 640 



320 

IF 

INKEY$='‘F" 

THEN 

LET x=x-l: 

GO SUB 640 



330 

IF 

INKEY$=’'H" 

THEN 

LET x=x+l: 

60 BUB 640 



340 

IF 

INKEY$='‘R'' 

THEN 

LET x=x-l: 

LET y=y+l: GO 

SUB 

640 

350 

IF 

INKEY$='’Y“ 

THEN 

LET x=x+l! 

: LET y=y+l: GO 

SUB 

640 

360 

IF 

INKEY$=^"C'' 

THEN 

LET x=x-l: 

LET y=y-l: GO 

SUB 

640 

370 

IF 

INKEY$=‘'B‘' 

THEN 

LET x=x+li 

; LET y=y-l: GO 

SUB 

640 

380 

IF 

INKEY$=‘‘G" 

THEN 

PLOT x,y: 

PAUSE 50: PLOT 

OVER 1; 

390 

IF 

INKEY$="g" 

THEN 

PLOT x,y 




400 

IF 

INKEY$=" 1 '■ 

THEN 

CLS : 60 TO 130 



410 

IF 

INKEY$=="2" 

THEN 

GO TO 470 




420 

IF 

inh;ey$="3" 

THEN 

GO TO 500 




430 

IF 

INKEYf="4'‘ 

THEN 

GO TO 540 




440 

IF 

INKEY$="5" 

THEN 

GO TO 570 




450 

IF 

INKEY$='' 6 " 

THEN 

60 TO 600 




460 

bO 

TO 210 






470 

Bl£P . 05, 20! 

INPUT 

" Do*taCke' 




480 

IF 

3.>255 UR D 

>175 THEN GO TO 

470 



490 

PLOT S,D: LET 

K — S • 

LET y=D: GO TO 180 



500 

BEEP .05,20: 

INPUT 

"Do->taCke'- 

h-; = " ;; 0 , "y-" ; K 



510 

IF 

0.>2b5 OR P 

>175 ' 

THEN GO TO 

500 




520 DRAN 0-ii , P-y 

530 LET n=0: LET y=P: GO TO 180 

540 BEEP .05,20: INPUT "Do*taCke*K=" ; W, "y=" ; E 
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5b0 DRAW W-x,E-y,PI 

560 LET K=W: LET y-E: bO TO 180 

^‘/U BEEF .objLU: INF’UT "CrtaiTiox-kt-ug'-pol upreLTd ka: ■■■■■■■■■"; R 
580 IF R>;-: OR R>y OR R>255-x OR R>175-y THEN GO TO 570 
5 VO CIRCLE x,y,R: GO TO 180 

6u0 BEEP .05,20: INPUT " i ke* (dovio*.- j . n . 

610 SAVE W$SCREEN$ : STOP 
620 60 SUB 660 

630 PLOT x,y: BEEP .01,20: PAUSE 10: RETURN 
640 60 SUB 660 

650 F'LDT x,y: PAUSE 10: PLOT OVER l;x,y: BEEP .01,20: PAUSE 
10: RETURN 

660 IF x<0 THEN LET x=x+l 
670 IF x>255 THEN LET x=x-l 
680 IF y<0 THEN LET y=y+l 
690 IF y>175 THEN LET y=y-l 

700 PRINT #0; INVERSE 1;AT 0, 0; "x = " ; x j AT 0, 7; >=" • yj "< 

; OVER 0;AT 0,12;"**": RETURN 
1904 PRINT #0;AT 0, 8; " 1=CLEAR*»2=PRESK0K'' 
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Generator gra-fiCkih znakova 
program! ran je. Pomodu programa 
poveCano nacrtati gratldki znak i 
slova u gra-fidkom nadinu. 


(UDG) je alat neophodan za 
moiete u posebnom prozoru 
postaviti ga ispod izabranog 


GENERn-TOR SNHKOUH 


■0 . B r i s . t. a c K. a 
I. . r-i e: n i 

3 l-'j a c r t a . i :z: ri a K 
F"' ri'i i Z r“i -Ei K. 

!:5 . T a c !•: a I a ■./ c 
. "T" a C K. d O 1. €; 

"7 . "T’ a C V: a d C' I" €i: 

e: . T' a C K. a d £: in- n o 

Q . r~’ o t. a i t. a c !•;. i_« 

! ■ ' ft $ i; :i * + ~ X iS C? ?? F. S; '3 : =: > 

i:;!? B 3 i:::- B f~~- G B X -J K I.... I-1 \ \ C;i F-' 0 R 'f.'!" U U X'Y' XL t: ;| -f- 

€: a b c c;l a t g t-i i ...i V- l rci n ■::« p r ie. t. i.j m.i '-j z -Z l :i- 

1 LET 1=2: GO TG 4 

CLEAR 31743: LET 1=0: GO TO 4 
CLEAR 31743: LET 1=1 

LET cl =5: LET cc=5: BORDER 7: PAPER 7: INK 0: CLS : PRINT 
INVERSE 1 ; TAB 31 ; ’ TAB 7; ''6ENERATQR*ZNAK0VA" ; TAB 31 ; ’ 

TAB 31;"*": IF 1=2 THEN GO TO 7 

5 IF 1=1 THEN POKE 23689,98: LOAD ""CODE : GO SUB 83: GO TO 
7 

6 FOR i=l TO 767: POKE 31 744+i , PEEK (15616+i): NEXT i 

7 DIM a$(10,10): GO SUB 43: GO SUB 16: GO SUB 18: GO SUB 20: 

60 SUB 19: GO SUB 32 

S BEEP .01,24: GO SUB 21: IF c$=''5" OR c$="6" OR c$="7" OR c* 
="8" THEN GO SUB 23: GO TO 8 
9 IF c$="9" THEN GO SUB 29: GO TO 8 

10 IF c$="0" THEN GO SUB 31: GO TO 3 

11 IF c*="2" THEN GO SUB 43: GO SUB 18: GO SUB 20: GO SUB 19: 

GO TO 8 

12 IF c$="3" THEN GO SUB 44: 60 TO 8 

13 IF c$="4" THEN GO SUB 49: GO TO 8 

14 IF c*="r' THEN 60 SUB 84 

15 GO TO 3 

16 PRINT AT 16,0;: FOR i=32 TO 63: PRINT PAPER 6;CHR$ i;: 

NEXT i: PRINT AT 18,0;: FOR i=64 TO 95: PRINT PAPER 6;CHR* 
!;: NEXT i: PRINT AT 20,0;: FOR i=96 TO 127: PRINT PAPER 
6;CHR* 1;: NEXT i 

17 POKE 23607,123: PRINT AT 17,0;: FOR i=32 TO 63: PRINT CHR$ 
i;: NEXT i: PRINT AT 19,0;: FOR i=64 TO 95: PRINT CHR$ !;: 
NEXT i: PRINT AT 21,0;: NEXT i: PRINT AT 21,0;: FOR 1=96 
TO 127: PRINT CHR$ 1;: NEXT i: POKE 23607,60: RETURN 
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IS FOR i=5 TO 14: PRINT BRIGHT 1 ; AT i , 5; a$ (i -4) ; : NEXT i: 
RETURN 

19 FOR i=48 TO 112 STEP 8: PLOT i,S3: DRAW 0.64: NEXT i: FOR 
i=63 TO 127 STEP S: PLOT 48, i : DRAW 64,0: NEXT i: RETURN 

20 PRINT AT cl,cc; FLASH 1; BRIGHT 1;"*";: RETURN 

21 LET c$=INKEY$: IF c$="" THEN GO TO 21 

22 RETURN 

23 LET cln=cl: LET c *17*' •*10*' fiO*' •’iO*'cn=cc: IF ^iO*'C$="5" THEN 
LET ccn=ccn-l 

24 IF THEN LET ccn=ccn + l 

25 IF c$=''6" THEN LET cln=cln + l 

26 IF c$=''7" THEN LET cln=cln-l 

27 IF ccn<5 OR ccn>14 OR cln<5 OR cln>14 THEN RETURN 

28 F'RINT AT cl,cc; BRIGHT 1 ; a$ (cl -4, cc-4) ; : LET cl=cln: LET 
cc=ccn: 60 SUB 20: GO SUB 19: RETURN 

29 IF cl=5 OR cl=14 DR cc=5 OR cc=14 THEN RETURN 

30 LET a$(cl-4,cc-4)="«“: RETURN 

31 LET a$(cl-4,cc-4) = '''5-": RETURN 

32 FOR i=0 TO 9: PRINT AT i +5, 16; i j " . o" ; : 60 SUB 33+1: NEXT i: 
RETURN 

33 PRINT "Brla.-s-tacke": RETURN 

34 PRINT "Meni": RETURN 

35 PRINT "Bris. opol ja": RETURN 

36 PRINT "Nacrtaj^znak": RETURN 

37 PRINT '‘Spemi'>znak": RETURN 

38 PRINT "Tacka'J'levo": RETURN 

39 PRINT "Tacka«dole": RETURN 

40 PRINT "Tack:a*gore" : RETURN 

41 PRINT "Tacka^desno" : RETURN 

42 PRINT "Postavi^tacku": RETURN 

43 FOR i = l TO 10: LET a$ (i ) = "**■=■********" : NEXT i: RETURN 

44 INPUT "Upisi'^znak: ; LINE b$: IF LEN b$<>l THEN 60 TO 44 

45 IF b$<"*’' OR b*>''0" THEN 60 TO 44 

46 LET a=31488+8*C0DE b$: FOR i=0 TO 7: LET v=PEEK <a+i): FOR 

j=0 TO 7: LET d=INT (v/2) : LET m=v-d»2: LET v=d: IF m=0 
THEN LET a$ (i +2, 9-j ) = : GO TO 48 

47 LET a*(i+2,9-j)="*" 

48 NEXT j: NEXT i: GO SUB 18: 60 SUB 20: 60 SUB 19: RETURN 

49 INPUT "Upisi*poIoza.i:*"; LINE b$! IF LEN btOl THEN GO TO 
49 

50 IF b$<"*" OR b*>‘'0'' THEN 60 TO 49 

51 LET a=31488+8*C0DE b$! FOR i=0 TO 7: LET v=0: FOR j=0 TO 7: 
IF at(i+2,9-j)="*" THEN LET v=v+2''j 

52 NEXT j! POKE a+i,v: NEXT i: GO SUB 17: RETURN 

53 INPUT "ImeOdatoteke:*"; LINE d$: IF LEN d$<l OR LEN dt>10 
THEN GO TO 53 

54 RETURN 

55 FOR 1=5 TO 15: F'RINT AT i ^ 0; 

««*": NEXT 1: RETURN 

56 LET te=0: LET tl=5: LET tc=0: LET tln=5: LET tcn=0: PRINT 
OVER 1;AT 5,0;"."; 

57 BEEP .01,-6: 60 SUB 21: IF c*=CHR* 7 THEN RETURN 

58 IF te=0 THEN 60 TO 68 

59 IF c$=''*AND*" THEN LET c»="C'' 

60 IF c$=''<’OR*" THEN LET c*='']" 
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61 IF c$=CHR$ 34 THEN LET c$=’'0" 

62 IF c$='' >STap<>" THEN LET c$=" ' ’" 

63 IF c*="NOT<>“ THEN LET c$="t" 

64 IF c$="!'STEP<>" THEN LET c*="\" 

65 IF c$="*THEN" THEN LET c*="I" 

66 IF c*="''’THEN" THEN LET ct=">" 

67 LET te=0 

68 IF c$=CHR$ 14 THEN LET te=l: BO TO 57 

69 IF c$>="*" AND c$<: = "0" THEN LET li=0: LET ci = l: GO SUB 77: 
GO SUB 82; PRINT AT tl.tcjc*; 

70 IF c*=CHR$ 13 THEN LET li=l: LET ci=-tc: GO SUB 77: GO SUB 
82 

71 IF c$=CHR$ 12 THEN LET 11=0: LET ci=-l: GO SUB 77: PRINT 
AT tin, ten; "■!•": GO SUB 82 

72 IF c$=CHR$ 8 THEN LET 11=0: LET cl=-l: 60 SUB 77: GO SUB 
82 

73 IF c*=CHR$ 9 THEN LET 11=0: LET cl=l: GO SUB 77: GO SUB 82 

74 IF c$=CHR$ 10 THEN LET 11=1: LET cl=0: GO SUB 77: 60 SUB 
82 

75 IF c*=CHR* 11 THEN LET 11=-1: LET cl=0: GO SUB 77: GO SUB 
82 

76 LET tl=tln: LET tc=tcn: 60 TO 57 

77 LET tln=tl+ll: LET tcn=tc+cl : IF tcn<0 THEN LET tcn=31: 

LET tln=tln-l 

78 IF tcn>31 THEN LET tcn=0: LET tln=tln+l 

79 IF tlnCS THEN LET tln=14: LET tcn=31 

80 IF tln>14 THEN LET tln=5: LET tcn=0 

81 RETURN 

82 PRINT OVER 1 ; AT tl,tc;".'': PRINT OVER 1 ; AT tln.tcn; 

RETURN 

83 PRINT #0,AT 1,0; 

***'>"; AT 1,0;: RETURN 

84 GO SUB 55 

85 PRINT AT 6, 0; " 1 . <>SprBml * 2 nakove" ’ "2. *Ucl taj'^znakove"’ "3. * 

Spreml*program"’ “4. *Spreml*program*loznakove 5.*Testno* 

kucan je"’ "6. *Povratak*u*gen. *znakova. '' ’ ''0.<*Kraj“: BEEP . 1 , - 
1: 60 SUB 21: IF c$="r' THEN GO SUB 53: SAVE d$CODE 31744, 
768 

86 IF c*=“2'' THEN POKE 23689,98: LOAD “"CODE 31744,768: 60 
SUB 17: GO SUB 83 

67 IF c»=“3" THEN SAVE "GenZnakova" LINE 2 

88 IF C*="4" THEN GO SUB 53: SAVE "GenZnakova" LINE 3: SAVE d» 
CODE 31744,768 

89 IF c»="5" THEN GO SUB 55: PRINT #0;AT 1 ,0; "CAPS*SHIFT-l*za* 
konec";: POKE 23607,123: 60 SUB 56: POKE 23607,60: GO SUB 
83: GO TO 84 

90 IF c*="6" THEN GO SUB 55: 60 SUB 18: GO SUB 20: GO SUB 19: 
60 SUB 32: RETURN 

91 IF c*="0" THEN STOP 

92 GO TO 85 
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Kako je to op^te poznato, si ova deli mo na VELIKA i mala. 
Velika su narodito opasna, jer ditaoca koji na to nije 
pripremljen, mogu da ubodu u odi . Kod radunara je to toliko 
opasnije, jer je televizor mnogo te±i od novina <ako vas ubode u 
odi ) . 

Za crtanje velikih slova stoji na raspolaganju odlidna 
Psionova rutina, za koju treba znati neito malo o ma^inskom 
jeziku. Pomodu na^ega potprograma modete da crtate slova 
dimenzija 4*4 ili 8*4 znaka. 

Program zapi^e red u 21. red i pomodu -funkcije POINT utvrdi 
oblik. Program mo±ete da izmenite, tako da pi&e u nekoj drugoj 
vel i dini . 


1 -'RLM- kontr ol na<‘rut i na 

2 INPUT "’4»4’-2**’B»4’-3»o";dim 

3 INPUT "TEXT:'';a$: IF dim<:>2 AND dim<>3 THEN SO TO 2 

4 PRINT AT 21,0;a$: INPUT "U'-^kojem'^^redu'^pocin jem^^?" j a 

5 60 SUB (dim*20)-10 

6 STOP 

9 PRINT AT 21,0; "***■!■<>*'>*" 

10 STOP 

29<’REN* sI ova44*4 

30 FOR n=7 TO 0 STEP -1 

31 LET b=0 

32 FOR (n=0 TO 63 

33 LET C=P0INT (m,n): PLOT OVER l;(n.n 

34 IF m/2<>INT (m/2) THEN LET b=b-l 

35 IF c=0 THEN PRINT AT a,b; OVER 1;"*": SO TO 42 

36 IF n/2=INT (n/2) THEN 60 TO 40 

37 IF m/2=INT (1ii/2) THEN PRINT AT a,b; OVER I;""" 

38 IF m/2<>INT (m/2) THEN PRINT AT a,b; OVER I;""" 

39 60 TO 42 

40 IF m/2<>INT (m/2) THEN PRINT AT a,b; OVER 1;".” 

41 IF m/2=INT (m/2) THEN PRINT AT a,b; OVER I;''." 

42 LET b=b+l! NEXT m 

43 IF n/2=INT (n/2) THEN LET a=a+l 

44 NEXT n 

45 RETURN 

49«-REN« t.1 093^8*4 

50 FOR n=7 TO 0 STEP -1 

51 LET b=0 

52 FOR m=0 TO 63 

53 LET c=P0INT (m,n): PLOT OVER l;m,n 

54 IF m/2<>INT (m/2) THEN LET b=b-l 

55 IF c=0 THEN PRINT AT a,b; OVER 1; GO TO 58 

56 IF m/2=INT (m/2) THEN PRINT AT a.b; OVER l;"l" 

57 IF m/2<>INT (m/2) THEN PRINT AT a.b; OVER l;''l“ 

58 LET b=b+lj NEXT m 

59 LET a=a+l: NEXT n 

60 RETURN 




■fiNiHlimiR!'' 
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Da li 5e i vi mnogo bavite crtanjem i radunarskom grafikom? 
Da vidimo kako delovi si i ke mogu da se poved:aju i kasnije 
upotrebe kao nove si ike. 

Rad s programom Je veoma Jednostavan - Prvo se u radunar udita 
slika, a zatim tasterima za kursor <5-8) okvir pomeri na ieljeni 
poloiaj. Po pritisku na taster A uokvireni deo slike poveda se 
preko celog ekrana. Na kraju se stara slika pozove nazad na 
ekran ili deo nove slike opet poveda. 

Program je napisan u bejsiku, sem tri rutine napisane u 
ma^inskom jeziku, koje program prodita iz DATA instrukcija- Te 
rutine su veoma kratke. Podinju na adresi 65000, gde radunar 
smesti sliku na drugo mesto u memoriji. Rutina koja podinje na 
adresi 65012 udita sliku iz RAM-a bez atributa. Na adresi 65025 
nalazi se rutina za povedanje. 

U programu ima dosta prilika za pobolj^anje. Prva mogudnost 
je deo slike koji ±elimo da povedamo. Ponekad bi bilo dobro da 
taj deo mo±e da bude promenljive velidine. Drugo pobolj^anje 
koje predlaiemo povezano je u prvom redu s poznavanjem 
programi ran ja u ma^inskom jeziku; red je o brSem povedavanju 
si i ke. 


20 CLEAR 5S000 < 

25 FOR :-;=65000 TO 65089: READ a: POKE x,a: NEXT x 
30 PRINT AT 10,7; FLASH 1 ; " Zoom^l oad-^>3CREEN$*" 

32 PRINT 'TAB 5; "Pri t i ani ■=>gumice’^od->5“8" ; TAB 5; "za-pomeranje-> 
okvira. ’TAB 5; "Pritisni'^a'^za'-povecanje. " 

35 LOAD ""SCREENS 

36 PRINT #0;AT 0, 0; "Pri t i sni'-^gumi cu" : PAUSE 0 

37 PRINT #0;AT 

40 RANDOMIZE USR 65000: CLS 
45 LET a=0: LET b=175 


crtanje 133 



51 IF INKEY$="5" THEN LET a=a-B: IF a<=0 THEN LET a=0 

52 IF INKEY$="6" THEN LET b=b-a: IF b<=87 THEN LET b=87 

53 IF INKEY$="7" THEN LET b=b+8: IF b>=175 THEN LET b=175 

54 IF INKEY$="8" THEN LET a=a+8: IF a>=128 THEN LET a=128 

55 IF INKEY$=''a'‘ THEN SO TO 100 

60 RANDOMIZE USR 65012: PLOT OVER l;a,b: DRAW OVER Ij 127,0: 

DRAW OVER l;0,-87: DRAW OVER 1;-127,0: DRAW OVER 1;0,B6 
65 PAUSE 0 
70 SO TO 50 

100 LET bb=(ABS (b-175) ) /8*32: LET aa=INT a/B: LET p=16384: 

LET a=a+l 
105 FOR s=l TO 11 
110 LET >!=(AB3 <b-175)>/8 

115 IF x>=0 AND x<8 THEN LET z=x »32+57968+a/8 

120 IF x>=8 AND x<16 THEN LET z= (x-8) *32+60016+a/a 

125 IF x>=16 THEN LET z= (x-16) »32+62064+a/8 

130 IF s=5 THEN LET p= 18432 

135 IF s=9 THEN LET p=20480 

140 LET z=z+32 

150 FOR 1=0 TO 1792 STEP 256 
155 LET r=z+l 

160 FOR q=p TO p+31 STEP 2 

165 LET w=r+(q-p)/2: POKE 64920, w-256*INT (w/256) : POKE 64921, 
INT (w/256) 

170 RANDOMIZE USR 65025: POKE q,PEEK 64922: POKE q+l,PEEK 
64923: POKE q+256,PEEK 64922: POKE q+257,PEEK 64923 
175 NEXT q 

180 LET p=q+480: IF 1=768 THEN LET p=p-2016 
185 NEXT 1 

190 LET p=p-2016: LET b=b-8 
195 NEXT s 

200 FOR F=22528 TO 23231 STEP 64 
205 FOR t=0 TO 31 STEP 2 

210 LET i=PEEK (64144+bb+aa) : POKE F+t,i: POKE F+t+l,i: POKE F+ 
32+t,i: POKE f+33+t,i 
215 LET aa=aa+l 
220 NEXT t 
225 LET aa=aa+16 
230 NEXT -f 

250 INF'UT "povecanje*d/n" ; a$: IF a*( TO l) = ''d" THEN 60 TO 40 
255 INPUT "stara»ili'5'[iova<>slika'";a$: IF a*( TO l)=‘'s“ THEN 
CLS : 60 TO 45 
260 SO TO 30 

300 DATA 1,191,26, 17, 144,226,33,0,64,237, 176,201,1,0,24, 17,0, 

64.33. 144.226.237. 176. 201 . 0. 237. 91 . 152. 253. 26. 71 . 62. 0. 203, 
120,40,2, 198, 192,203,112,40,2, 198,48,203, 104,40,2, 198, 12, 

203.96.40.2. 198.3.50. 154.253.62.0. 203.88.40.2. 198. 192.203, 
80,40,2, 198,48,203,72,40,2, 198, 12,203,64,40,2, 198,3,50, 155, 
253,201 
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Cak i povr^no posnavanje programiranja u maSinskom jeziku 
dovoljno je za sastavljanje brze i e-fikasne rutine- Pomotu ovog 
programa moiete da pi^ete po ekranu u osam pravaca, dakle na sve 
strane. 


[-lo .j rri i K r 


•vREMv<-><> BRANKOi'NOVOSEL^O'x:-'**** 

1 985*0*!>'><'*<'<*<>'>**<>******«**STRUMPF*SOFTWARE* 

40 CLEAR 29999: FOR n=30000 TO 30023: READ a: POKE n,a: NEXT 
n 

45 DATA 33,0,64, 17,80, 195,1,192,26,237, 176,201,33,80, 195, 17,0, 
64,1,192,26,237, 176,201 
50 GO SUB 7000 
60 GO SUB SOOtJ 
80 PRINT #l;"Meni=m" 

85 LET a$=INKEY$: IF a»=''(ii" OR a$="M" THEN GO SUB 9000 

86 IF a$="" THEN 60 TO 85 

90 CLS : PRINT #0; "U*kDje(n*smeru*zel i 5*pi sat i *?" : F'RINT #1;"** 

100 LET a»=INKEYf: IF a$>'‘8" OR at< " 1 " THEN GO TO 100 
115 LET a=VAL a$ 

120 INPUT ''ISPIS«";m$ 

125 IF LEN m$>20 THEN GO TO 120 

130 INPUT "X*POCETAK*",k 

140 INPUT "Y<>POCETAK:>",y 

145 RANDOMIZE USR 30012 

150 PRINT AT 21,0; INK c; PAPER c-.m* 

160 FOR n=0 TO LEN m**8 
170 FOR 0=0 TO 7 

180 IF POINT <n,D)=l THEN GO SUB lOOO+lOXa 

190 NEXT o: NEXT n 

200 RANDOMIZE USR 30000 

210 GO TO 80 

1010 PLOT o-x,n+y: RETURN 
1020 PLOT n+x-o,n+y+a: RETURN 
1030 PLOT n+x,o+y: RETURN 
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1040 PLOT n+x+o,o+y-n: RETURN 
1050 PLOT o+x,n-y: RETURN 
1060 PLOT n-x-o,n-y+ 0 ! RETURN 
1070 PLOT n-x,o-y! RETURN 
1080 PLOT n-x+o,o-y-n: RETURN 

7000 PRINT AT 2, 13; "SLOVA 0> " : PRINT AT 2,12; OVER 1;" 

7010 PRINT ■' ■' ■’ "Program*vam*o(nogucuje*pi san je*po<‘***ekranu*u'''8'» 
pravaca* (1-8) " 

7040 RETURN 

8000 PRINT #0; "*PAPER<>boja*?(0-9) " 

8010 LET a*=INKEY* 

8020 IF a$>'‘9" DR af<"0" THEN 60 TO 8010 

8030 PAPER VAL a*: CLS : FOR n=0 TO 100: NEXT n: LET c=VAL a$: 

CLS : RANDOMIZE USR 30000 
8040 PRINT #0; "*INK<‘boja?<M0-9) " 

8050 LET a$=INKEYt 

8060 IF a$>"9" OR atC'O" THEN SO TO 8050 
8070 INK VAL a*: CLS : FOR n=0 TO 100: NEXT n 
8080 PRINT #0; "B0RDER<>boja?<>(l-7) " 

8090 LET a*=INKEY$ 

8100 IF a$>"7" OR a$<"0" THEN 60 TO 8090 

8110 BORDER VAL a$: FOR n=0 TO 100: NEXT n: RETURN 

9000 CLS : PRINT "MENI " ’ ’ ’ ’ " 1 . '■>Profflena*boje" ’ "2. *Bri san je-'’ 

etirana" ’ ”3. *ZX*F'RINTER" ’ "4. *Spreman je-'s! i ke'na'Uiasetu" ’ "5 
Exit" 

9010 PRINT #0;"l,2,3*ili*4" 

9020 LET a$=INKEY*: IF a$>"5" OR a$< " 1 " THEN SO TO 9020 

9030 IF at="r' THEN FOR n=0 TO 100: NEXT n: 60 SUB 8000 

9040 IF a$="2'' THEN CLS : RANDOMIZE USR 30000 

9050 IF a»="3" THEN RANDOMIZE USR 30012: PRINT AT 21 , 0; "*!>***<.' 

li . QQpY 

9060 IF a$=’'4“ THEN INPUT "Napi si *i me'>" ; a* : RANDOMIZE USR 3001 
SAVE a$SCREEN$ 

9070 FOR ri=0 TO 100: NEXT n: RETURN 
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RaCunar nacrta paletu nijansi boja. Ako koju od njih ±elite 
da upotrebite drugom prilikom, ukucate njenu brojku, zadatu 
horizontalnom i vertikalnom oznakom u paleti boja. Na ekranu se 
ispiSe kako je nijansa postignuta. Za meSanje osnovnih boja 
upotrebljava se grafitki uzorak u obliku ^ahovske table. Na taj 
nadin dobiju se 32 nijanse (8*8/2), a sledede pomodu naredbe 
BRIGHT. 



lO'REMTrez ervisemo'Spol je'■''^;ont^olrrih■■■■^izDva*za*boje*i*odredimo* 
ni ZQve*ispi sa*za*bojadi san je^ekrana 
20 DIM c$!99,fc): DIM c(7): LET gT=''tf": LET LET i$=CHRt 

(16): LET pf=CHR$ (17): LET b$=CHR$ (19) 

30 FOR i=l TO 10: LET g$=g$+g$: LET s$=s$+s$: NEXT i 
40 LET g*=g$( TO 704): LET s$=s$ ( TO 704) 

50 "REM 'p ost a vi mo* '' mr ez i cu " *z a-mesan j e-osnovn i h *bo j a 
60 FOR i=0 TO 7 STEP 2: POKE USR "M" + i,85: POKE USR "M'' + i + l, 
170: NEXT i 

70*REM*proci tamo*kontrolne*sekvence ■■■za*pojedi ne*grupe*ni jansi 
80 FOR i=l TO 7: READ c(i): NEXT i 
90 FOR i=l TO 6: RESTORE 620 
100 FOR j=0 TO 9: LET k=i*10+j 
110 60 SUB 570 
120 NEXT j: NEXT i 
130 FOR j=0 TO 9: READ a,b 

140 LET c$(70+j)=i$+CHR$ (a)+p*+CHR$ (b)+bi+CHR* (0) 

150 LET c$(80+j)=i*+CHR$ (a)+p*+CHR$ (b)+b*+CHR$ (1) 

160 LET c$(90+j>=i$+CHR$ (b)+p$+CHR« (a)+b*+CHR$ (1) 

170 NEXT j: NEXT i 
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180 FOR k=l TO 6: RESTORE 750 

190 GO SUB 570: NEXT k 

200 FOR k=7 TO 9: GO SUB 570: NEXT k 

210*REM*i5pise(no'-!'5kalLi*boja 

220 BORDER 0: PAPER 0: CLS 

230 INK 7: PRINT AT 0, 10; '’SKALA^BOJA" 

240 PRINT AT 2, 8; '•0*l<>2<'3<'*4«'5e'6'' 

250 FOR i = l TO 6: PRINT AT 1*2+1, 2; PAPER c(i);''«";AT 1*2+2, 
2; AT 1 *2+2,5; PAPER 0; 1 ; 

260 FOR k=l TO 2: PRINT AT l*2+k,7; 

270 FOR j=0 TO 2: PRINT c* <1 *10+ j : NEXT j 
280 PRINT c*(l*10+3) ; PAPER 0;''*"; 

290 FOR j=4 TO 6: PRINT c* (1 *10+j ) ; ; 

300 NEXT j: NEXT k: NEXT 1 
310 PRINT AT 3,24; "7*8*9" 

320 FOR 1=1 TO 5: FOR k=2 TO 3: PRINT AT l*2+k,23; 

330 FOR j=7 TO 9: PRINT c$ ( 1 * 10+j : NEXT j 

340 NEXT k: NEXT 1 

350 FOR 1=7 TO 9: LET a$="»A(" 

360 IF 1=9 THEN LET a»="**" 

370 PRINT AT 1 *2+2, 2; c$ (1 ) ; at; AT 1 *2+3, 2; at; AT 1*2+3, 5; PAPER 
0; INK 7; BRIGHT 0; 1 ; 

380 FOR k=2 TO 3: PRINT AT l*2+k,7; 

390 FOR j=0 TO 3: PRINT ct (1 *10+j : NEXT j 
400 PRINT PAPER 0;"*"; 

410 FOR j=4 TO 6: PRINT ct (1 *10+j : NEXT j 
420 PRINT PAPER 0;"*"; 

430 FOR j=7 TO 9: PRINT ct (1 *10+j ) ; "Klf" ; ; NEXT j 
440 NEXT k: NEXT 1 

450 INPUT INK 7; BRIGHT 1 ; "***Izaberl *nl jansu: ; 1 
460 IF 1=0 THEN 60 TO 220 

470*REIi*T 2abranu*nl jansu*nacrtamo*preko*cel Dg*ekrana 
480 LET at=gt: -IF 1=9 OR 1<7 OR i<70 AND (1-INT (1/10)*10)=3 
THEN LET at=st 

490 CLS : PRINT ct(l);at! PAPER 7: INK 0 

500*REM*naplse(tio,*kakD*je*nl jansa*5astavl jena 
510 FOR j=ll TO 15: PRINT AT j , 10; "************" : NEXT j 
520 LET lnk=CODE ct(l,2): PRINT AT 12, 12; "*INK*" ; AT 12,19;lnk 
530 LET p=CODE ct(l,4): PRINT AT 13, 1 1 ; "*PAPER*" ; AT 13, 19;p 
540 PRINT AT 14, 1 1 ; "*BRIGHT*" ; CODE ct(l,6) 

550 PAUSE 1: BORDER 0: BORDER Ink: BORDER p: BORDER 0: IF 
INKEYt="" THEN GO TO 550 
560 GO TO 450 

570*REM*uc:l tavan jB*kDntrol nl h*sekvencl 
580 READ a,b,c 

590 LET ct(k)=lt+CHRt (a)+pt+CHRt <b)+bt+CHRt (c> 

600 RETURN 

610 DATA 2, 6, 4, 5, 1,3,0 
620 DATA c (1 ) .0,0 
630 DATA 0,C(1),1 
640 DATA c ( 1 ) , c ( 1 ) , 0 
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650 DATA c (i ) ,c (i ) , 1 
660 DATA c(i),7,0 
670 DATA 7,c(i),l 
680 DATA c(i),7,l 
690 DATA c(i + l),c(i),l 
700 DATA c (i + 1 > ,c (i ) , 0 
710 DATA c;(i),c<i + l),l 
720 DATA 5, 3, 2, 5, 2, 1,2,3 
730 DATA 6,5,6, 1,4,1 
740 DATA 2, 4, 6, 3, 4, 3 
750 DATA c<k),c(k),0 
760 DATA 0,7,0 
770 DATA 7,7,0 
780 DATA 0,7,1 

790*REM*spremimD'>program*na*kasetLi 

800 LET at=''*"+CHR$ 17+CHRt 2+"*"+CHR$ 17+CHR$ 4+"*''+CHR$ 17+ 
CHR$ 1 + "*'’: SAVE a$ LINE 10 
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Pomodu radunara i ne^to malo znanja mateniatike mogu da se 
nacrtaju veoma privladni ornamenti, koje moiete da ubacite u 
Bvoje programe. 

Program SI i ka 1 elipsom prikaie nekakav trodi menz i onal ni 
jastuk. Pri crtanju elipse samo se smanjuje jedna od njenih osi . 

Program Slika 2 nacrta dvanaestorougaoni k , gde bu Bva tomena 
meduBobno povezana- 

U programu Slika 3 poigrali smo Be matemati dkim -funkcijama. 
Upotrebom Punkcije AES naBtala je upravo neobidna slika. 

Nadamo se da dete pomodu ovih jednostavni h programa i malo 
ekBperimentisanja i vi uspeti da ostvarite neSto slidno ili jo4 
bol je. 

Sva tri programa crtaju polako, zato bi ih pre ozbiljne 
Lipotrebe dobra bilo kompilirati nekim komerci jal ni m kompajlerom 
za programe u bejBiku. Preporudu jemo MCODER II. 

>i''V 




1 CLEAR 

2 INK 2 

5 LET x=0: LET y=80 
10 FOR n=0 TO 2*PI STEP PI/180 
15 PLOT 128+x)tSIN n,87+y*C0S n 
20 NEXT n 

25 LET K=x+10: LET y=y-10 
30 IF y=-10 THEN STOP 
40 60 TO 10 
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DEF FN R<N)=USR 0: DEF FN S(N)=USR 0: DEF FN C(N)=LISR 0: 
DEF FN I <N,A*,B$)=USR 0: DEF FN A(N,N)=USR 0: DEF FN K*(N, 
N)=USR 0: DEF FN 0(N,N)=USR 0: DEF FN X(N,N)=USR 0: DEF FN 
C$(N)=USR 0! DEF FN N(C$)=USR 0: DEF FN H$(N)=USR 0: DEF 
FN D(Ht)=USR 0: DEF FN Ut(S$,N)=USR 0: DEF FN S*(N,S*)=USR 
0! DEF FN F'(N)=USR 0: DEF FN Ei$(N)=USR 0: DEF FN T$()=USR 
0: DEF FN M$ ( ) =USR 0: DEF FN V(N,N)=USR 0: DEF FN 110=0- 
USR 0: DEF FN F O =USR 0: *REM<' : *RANDOI1IZE*USR<'0 


10 CLEAR 

20 DIM a(12): DIM b(12) 

30 FOR n=l TO 12 
40 LET k=n/6*PI 

50 LET a(n)=128+80*SIN k: LET b (n ) =88+80*C0S k 


60 PLOT a<n) ,b(n) 

70 NEXT n 
80 FOR n=l TO 12 
90 FOR m=l TO 12 
100 LET QX=a(m)-a(n) 

110 LET oy=b(m>-b(n) 

120 PLOT a(n),b(n): DRAW ok , oy 
130 NEXT m: NEXT n 


.‘ /“N 
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10'5REM*sl i ka<'3 

20 FOR k=0 TO 60 STEP 10 

30 FOR K=0 TO 128 

40 LET y=30-ABS (x-32)*SIN (x»PI/64) 
50 PLOT K,y+k: PLOT y+k,x 
60 PLOT 255-x,y+k: PLOT 255-(y+k),x 
70 NEXT X 
80 NEXT k 
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Spectrum cte nacrtati proizvoljan pravilni mnogougaonik na 
ekran. Izmedu 20. i 40. reda navedu se podaci kao Sto su broj 
strana, sredina alike s koordinaliama x i y i poluprednik 
deobenog kruga za pravilan Cetvorougaoni k . U 50. redu radunar 
pi^oba da li se sa zadabim podacima mode da nacrta detvorougaoni k 
'-*nutar povrSine ekrana. Algoritam za crtanje detvorougaoni ka je 
Jaaan <od 60-110. reda) . 

Upozoravamo na nadin crtanja kojim se primenjuju sisdemske 
promenljive 23677 i 23678. Obe promenljive modete da nadete u 
prirudniku dobijenom uz radunar, a predstavl jaju koordinate x i 
y poslednje tadke nacrtane na ekranu. 

Mnodoudaonik s lukovima 

Crtanje pravilnih mnogougaoni ka nije ko zna kakva zabava. 
Zato demo pokazati kako nastaju zabavnije si ike, ako umesto 
ravne strane mnogougaoni ku nacrtamo luk. 

Program je veoma slidan programu Mnogougaoni ci , samo 4to su 
uvedene joS tri promenljive. Promenljive sit pribrojene su 
argumentima za kosinus odnosno sinus u 80. i 90. redu, a 
promenljiva b je tredi element naredbe DRAW, koja sada viie ne 
crta liniju nego luk. 

Sve tri promenljive tiksirane su u 20. redu. Za zabavu i 
eksperi menti san je modete malo da ih promenite. Tako dete dobiti 
zanimljive slike. 



10^REM*crtan je'S'mnogougaoni ka 
20 INPUT ''Broj*strana",n 
30 INPUT "Centar<’slike»(x,y) ",x; “*"!y 
40 INPUT "poluprecnik",r 

50 IF x+r>255 OR r>x DR r>y OR y+r>175 THEN INPUT “izvan* 
ekrana", d$i 60 TO 20 
60 FOR i=0 TO n 
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70 LET u=>;+r*C0S (i»2*PI/n) 

80 LET v=y+r*SIN (i*2*PI/n> 

90 IF i=0 THEN PLOT u,v: 60 TO 110 
100 DRAW u-PEEK 23677, v-PEEK 23678 
110 NE/fT i 
120 STOP 


ffnn <13 ^ <i3<_Ag ,3<<z>n x Ic 1 <_x kc <z3 v i 

10*REM*5i i ka*5''T ukovi ma 

20 LET 5=1: LET t=2! LET b=4 

30 INPUT "Broj*strana'‘,n 

40 INPUT '‘Centar*slike*(x,y) '',x y 

50 INPUT "polupr 0 cnik",r 

60 IF x+r>255 OR r>K OR r>y OR y+r>175 THEN INPUT "izvanO 
ekrana",d$: 60 TO 10 
70 FOR i=0 TO n 
80 LET u=x+r»COS (s+i»2»PI/n) 

90 LET v=y+r*SIN (t+i *2)(;PI/n) 

100 IF i=0 THEN PLOT u,v: 60 TO 120 
110 DRAW u-PEEK 23677, v-PEEK 23678, -b 
120 NEXT i 
130 STOP 


140*REM* 
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Program je dobio to irae zato, jer pomotu njega moiete da 
nacrtate kakav hotete diagram odnosno zarotirate proizvoljan lik 
oko jedne osi i tako dobijete kvaz i trodi menz i onal no telo. 

U programu prvo treba zadati telo, kao Sto je prikazano na 
slici. Izmedu 150. i 240. reda zadate visinu i recimo 
koordinate pojedinih tadaka. Zatim odredite koliko strana va4e 
kvazitrodimenzionalno telo treba da ima. Zami^ljeni prerez tela 
ne aastavljaju krugovi , jer telo nije nastalo rotacijom lika, 
neko mnogougaoni ci . Strana mote da bude najmanje 3 (trougaoni 
lik) i najviSe 14. 

Program je lep primer programiran ja odozgo nadole. Praktidno, 
nema skokova. Prvo se unose podaci (INPUT), a zatim sledi 
radunanje parametara. Mnogo kompl i kovanog radunanja zajednidko 
je 5vim tadkama. Na kraju dolazi i crtanje slike. Tu je i 
obavezno pitanje da li ditavu stvar telimo ponoviti, da je vide 
mama i tata. 

U programu nema poeebnih zaniml ji vosti . Motda de se nekome 
udiniti dudna upotreba tunkcije PI u na prvi pogled potpuno 
matematidkom programu. Autor programa je upotrebljava da bi 
saznao dokle je radunar nacrtao - koja je poslednja nacrtana 
tadka dije koordinate su zapisane u sistemskim promeni j i vi ma na 
lokacijama 23677 (za koordinatu x) i 23678 (za koordinatu y) . 

Zadatak: ditaoci s manje prohteva motda de tok programa malo 
Librzati ako dodaju 305. red, u kom de izradunati izraz c*2*PI/I. 
Ako neko ±eli da se zadrii dute vremena s matematikom i 
tri gonometr i jom, mote donekle da promeni tok dogadanja u petiji 
izmedu 300. i 340. reda. Mote da ga promeni utoliko da telo mote 
da se promatra i na nekom drugom mestu na ekranu ili pod drugim 
Ligl om. 



1 0*REM*Rotac i ona^’t el a 

20 BORDER 0: PAPER 0: INK 5: CLS 

30 PRINT INK 4; FLASH 1;AT 0,9; “Rotaciona^tela" 

40 PRINT AT 6, 1; "Upisuj*podatke*o‘>visinama*i*****pripadajucirao 
poluprecnicima, ****a*program*ce*ih*nacrtati 
zarotiranam*obl i ku*kao*'>*'>*<>**o->trodi menz i onal no*>tel o. " 

50 PRINT ’ ’ ''Pritisni*gumicu'' 

60 PAUSE 0 
70 CLS 
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so PRINT AT 0,7; ‘'VISINAi'?s (MAX = 14) " 

90 INPUT X 

100 IF >i>14 or' k<1 then SO TO 90 

110 PRINT ■’ ’ "Ukucaj '-broj ■■’strana*koje'''ce**'*''**rataci jsko'^telo* 
iiiiati*(i2medju*3i*14) INPUT 1: IF 1(3 OR 1>14 THEN 60 TO 

no 

120 CLS 

130 DIM a(16): DIM :<(15,x): DIM y(15,x): LET c=-10 

140 PLOT INK 2;0,0: DRAW 0, ly.tlO) -iOi PLOT 0,0 

150 BRI6HT 1 

160 FOR a=l TO x 

170 INPUT b 

180 LET a(a)=b 

190 IF ad) >70 THEN 60 TO 170 
200 IF a (a) >120 THEN SO TO 170 
210 IF a (14) >80 THEN 60 TO 170 
220 DRAW b-PEEK 23677, 10+c-PEER 23678 
230 DRAW 0-PEEK 23677, 10+c-PEEK 2367B 
240 DRAW b-PEEK 23677, lO+c-PEEK 23678 
250 LET c=c+10 
260 NEXT a 

270 PRINT "Sada^cu^da-i-izracunam^zarotirane^polozaje^tacaka. ’ 
Za*to*nii('je*potrebnD*nesto<’**'-'’'***vreiiiena. “ 

280 LET 0=10 

290 LET b=l: LET d=l 

300 FDR c=0 TO 1 

310 LET x(b,d)=140+a(d)*SIN (c*2»PI/l) 

320 LET y(b,d)=o+(a<d)/4)*C0S (c*2»PI/l) 

330 LET b=b+l 
340 NEXT c 

350 IF d=x THEN CLS : 60 TO 390 
360 LET d=d+l: LET b=l: LET o=o+10 
370 60 TO 300 

380 IF INKEY*=‘'Y'' THEN CLS : 60 TO 390 

390 LET a=10 

400 LET b=l! LET d=l 

410 FOR c=0 TO 1 

420 IF c=0 THEN PLOT x <b , d) -20, y (b, d) +14 

430 DRAW X (b,d) -20-PEEK 23677, y (b , d) +14-PEEK 23678 

440 IF d>l THEN DRAW x (b, d-1 ) -20-PEEK 23677, y (b, d-1 ) + 14-PEEK: 

23678: DRAW x <b, d) -20-PEEK 23677, y (b, d) +14-PEEK 23678 
450 LET b=b+l 
460 NEXT c 

470 IF d=x THEN 60 TO 500 

480 LET d=d+l: LET b=l: LET o=q+10 

490 60 TO 410 

500 PRINT AT 0, 0; "2A(»NASTAVAK«'PRITISNI*6UMICU'» ! " 

510. PAUSE 0 
520 CLS 

530 PRINT INK 2; ''Ofl-f'OopONOVOO?'' 

540 PAUSE 0: CLS 

550 IF INKEY*="d“ THEN 60 TO 80 

560 PRINT INK 2; AT 5,0; "<>*(-«•*<> 1ST I <'PODACIo?" 

570 PAUSE 0 

580 IF INKEY$="d‘' THEN CLS : 60 TO 390 

590 CLS : PRINT INK 2; AT 10, 0; '‘^'^(‘(’(■ODOOVIDJENJA* I " 
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6024 

Kaiu da lepa slika kazuje vi^e nego gomila brojeva. Upravo 
zato deca u ikolama stalno crtaju gra-fove funkcija koje 
izmi^ljaju njihove nastavnice i nastavnici matemati ke. 

Pomodu programa moiete da proverite da li ste funkciju 
nacrtal i pravilno ili ne, a omogudava i ne^to, obidno ne 
radite u domadim zadacima: crtanje -funkcija dve promenljive u 
obliku trodimenzionalnog dijagrama — dak i skrivajudi nevidljive 
linije - ako to ielite. 

Program pruia tri izbora: mogu da se crtaju tunkcije dve 
promenljive zadate u obliku z=-f(x,y) (visina -funkcije je 
funkcija koordinata x i y) , funkcije dija vieina ovisi samo o 
polupredniku ili dvodi mez i onal ne funkcije kod kojih je zanimljiv 
y kao funkcija od x. 

Po programu vode meniji, tako da du±a uputstva nisu potrebna. 
Ali zato ima nekoliko vaJnijih obja^njenja. Prvo o crtanju 
rotacionih funkcija odnosno funkcija kod kojih je visina zavisna 
samo od pol upredni ka. Prilikora zadavanja funkcije savetujemo da 
izaberete neku kombinaciju kosinusnih funkcija s razliditim 
periodama i amplitudama. Po^to je kosinus od nula jednak 
jedinici, najviie ispupdenje bide izvesno na sredini dijagrama. 
Ovaj potprogram nije uop^ten i crta funkcije odnosno vrednosti 
funkcija samo za poluprednike izmedu nula i detiri. 

Umesto unoSenjem podataka u 1040. redu, funkciju moiete da 
defini^ete i sa DEF FN u 1060. redu. To narodito savetujemo kada 
budete eksperi menti sal i i ieleli da nacrtate neki veoma lep 

Ob 1 i k . 

Kaaa vas radunar pita o ishodi^tu koordinatnog sistema, 
zanima ga gde de na ekranu biti najveda gustina mreia. I kod 
rotacionih i kod obidnih funkcija to izaberete s obzirom na 
funkciju. Pretpostavimo da crtate vrednosti funkcije izmedu -4 i 
4, a ielite da budu prikazane sa oko dvadeset linija. Za gustinu 
mreie izabradete 0,5 i radunar de nacrtati devetnaest linija. 

Moiete da birate i gustinu linija s obzirom na funkciju. Kad 
funkciju crtate tako da nevidljivi delovi linija ostaju 
sakriveni, budite pailjivi. Morate da izaberete dovoljno veliku 
gustinu, tako da izmedu dve tadke funkcije nikad ne ostane 
prazan element (pixel). 

Svako s iole znanja iz tri gonometri je moie i sam da izraduna 
kako treba zavrteti funkciju da bi izgledala trodimenzionalna. 
Detaljnije objaSnjenje nadi de u Prvim linijama radunarom u Mom 
mikru. Opisademo samo algoritam kojim se skrivaju nevidljivi 
delovi linija. Prvo se nacrtaju oni preseci kroz funkciju koji 
de biti nacrtani sasvim pozadi. Nacrta se tadka, a zatim izbri&u 
sve tadke koje bi na ekranu trebalo da leie ispod odredene 
tadke. Sve Sto je na ekranu nalazi se ispod preseka koji se tog 
trenutka crta kao prazan. Kada ielimo da funkciji uzme u obzir 
vidljivost, radunar crta puievom brzinom. Za zaista lepu sliku 
potro4i oko dva dasa, a vi za to vreme sebi priu^tite odmor u 
prirodi . 

Pri crtanju funkcija dve promenljive treba zadati uglove 
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rotacije koordinatnog sistema, dakle pod kojim uglom dete 
gledati na funkciju. Najlep^e rezultate dobidete s vrodnostima 
koje savetiije radunar. Unosite ih u stepenima. Nakon ne^to malo 
eksperi menti sanja naudidete i Sami odredivanje tih uglova. 

Treba mnogo da kucate, all va& trud bide nagraden slikama 
kakve inade nalazite sarno u reklamama za najboije grafidke 
terminaie. Umetnidka del a moiete da smestite na kasetu ili 
odStampate na ^tampadu i tako ih kasnije poka±ete pri jatel jima. 
U donjem uglu ekrana nalaze se slova c, s ili e. Pritisnite c za 
copy ili s za snimanje. 

Kazume se da program nije upotrebljiv samo za igru, nego se 
pomodu njega StoSta moie zaista plastidno da se pokaie. 



1 50 TO 2740 
9 INK 9: CLS 

10 PLOT 0,87: DRAW 255,0 

11 PLOT 127,0: DRAW 0,175 

20 PLOT 127,0: DRAW 0,175 

21 INK 9 

32 INPUT ■'F(r)=";f$: DEF FN y(r)=VAL f* 

33 INPUT "KoIiko*tacaka*predstavI ja‘>******jedinicu*mere*?" 
jmer 

34 INPUT "R*od*'' j spm| "*do*'' ; zgm 

35 LET t=0 

36 LET ■fspm=<spm*mer+127) : LET F spm= (F5pm>=0) if spm: LET spiii=( 
f5pra-127) /mer 

37 LET fzgm=(zgmimer+127) : LET f 2 gm= (f zgm<=256) »f zgni+255* ( 
fzgm>255) : LET zgm= (f zgm-127) /mer 

40 FOR f=fspm TO fzgm 

50 LET x = (f-127)/n)er: LET y=mer*FN y(x) 

60 IF ABS y>87 THEN LET t=0: 60 TO 100 

70 IF NOT t THEN PLOT f,y+87: LET t=l: GO TO 100 

80 DRAW l,y-5ty 

90*REM»*PLaT*f , 87 : *DRAW**0VERo 1 ; 0 , y 
100 LET sty=INT <y+.5) 

110 NEXT f 

111 RETURN 

115 INPUT ''<WER*?*";a$: IF a»="d“ THEN GO TO 0031 

116 IF a$="sf'' THEN INPUT mer: GO TO 0035 

117 IF a$=''d" THEN GO TO 0031 
120 GO SUB 3110: RETURN 
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1 OQO-RfcMi 3D-F (r ) ooooo^ooooo 

1020 CLS 

1030 DIM k(3,3) 

1 040 I NPUT " Uplsi»funkci iu " ’ " ( 'S-oSTOF-s !<«L I ST* 1 060*2 a**DEF*FN* ) " ’ " 
*f (r)<>=<>"!F« 

1060 DEF FN r(r)=VAL F* 

1070 RESTORE 1000: DATA 25,-90,70: READ k < 1 , 3) , k (2, 3) . k (3, 3) : 

60 SUB 3260 

1080 INPUT "Z*05*-*raste2anje*(*2=2)C''; LINE c$: IF LEN cf=0 
THEN LET ze=l: GO TO 1082 

1081 LET 2 e=VAL c» 

1100 INPUT "■'y’*i2hodi5ta*k.5. (0-175) LINE c$: IF LEN c$=0 
THEN LET iy=70: GO TO 1110 
1105 LET iy=VAL c$ 

1110 LET ix=127 

1120 INPUT ''Gustina*mre2e*5*obzironi*na******funkci ju*>''; LINE c$ 
IF LEN c$=0 THEN LET 5X=.31: GO TO 1122 

1121 LET 5x=VAL c$ 

1 140 INPUT "Gustina*lini je*s*ob2irom*na*****Funkci jLi**>*"; LINE 
c$: IF LEN c$=0 THEN LET sy=.038: 60 TO 1142 

1141 LET sy=VAL c$ 

1150 LET en=32 
1155 LET a=4 

1 160*REI1* RACUN 
1180 CLS 

1200 PRINT AT 1,0;F$ 

1220 FOR x=-a TO a STEP sx 

1240 LET x2=x*x 

1260 LET ym=SQR (16-x2) 

1280 FOR y=-ym TO ym STEF' sy 
1300 LET r=SQR (x2+y*y) 

1320 LET z=FN r(r) 

1340 60 SUB 2380 
1350 GO SUB 1500 
1360 NEXT y 
1380 NEXT X 
1400 GO SUB 3120 
1420 RETURN 

1 500*REM* PL0T*8<*5kri vene-*! ini le 
1520 IF xp<0 OR xp>255 THEN RETURN 
1530 IF yp<0 OR yp>175 THEN RETURN 
1540 PLOT INK 9;xp,yp 

1560 PLOT OVER 0; INVERSE l;xp,yp-l: DRAW OVER 0; INVERSE IjO, 
-(yp-1) 

1580 RETURN 

1 600*REM* 5D-GRAFQVI<»>*z=F (x ■ v) ** 

1620 DIM k(3,3) 

1640 BORDER 1: PAPER 1: INK 9 
1660 CLS 
1680 RETURN 

1 700*REM* Funkci ia 

1720 INPUT " Funkci ia " ”'F (x ■ v) = " : F$: DEF FN z(x,y)=VAL 
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1740 INPUT "Od*x=";xf; = " ; x t 

1760 INPUT <ip2t' " <p2*'0d-iy="iyf ; "<>dD!>y=''iyt 'pi*- 

1780 RETURN 


1 SQO^REM-^ c. 5. Pparametri 

1820 INPUT PAPER 4; "UGLOVI iROTACI JE*K00RDINATN06«-5 »SISTEMA, '> 
5avetujem*25, -90''’i*70'5’*" ’ K ( 1 , 3) , K (2, 3) , K (3, 3) 

1840 60 SUB 3260 

1860 INPUT PAPER 4; " Ishodi steS'u*256*176‘>«’>» (x , y ) >*" ’ ix , iy 
1880 INPUT PAPER 4; "K0LIK0*TACAKA*JE*JEDINICA***<>*5->FUNKCI JE’ * 
>'' ; en 

1900 INPUT PAPER 4; "RASTEZANJE*OSI*Z " i ze 
1920 RETURN 


1 94Q-REri» draw<*Darametri 

1960 INPUT PAPER 4; "Skri (y/n) >" ; d$ 

1980 IF d»<>"y" AND d$<>‘'n'’ THEN 60 TO 1960 
1990 IF d$="y" THEN 60 TO 2020 

2000 INPUT "6USTINA<>MREZE'>*S<>0BZ IR0M<>NA*'i*«-5FUNKCI JU* (X , y ) *>" 
; stx , , sty 

2010 INPUT "Kraj*pri*z=0'><y/n)*>";q$ 

2015 RETURN 

2020 LET sty=.05: INPUT ''6ustina'i-mreze*s*obzirom-5-na****'5"!> 
f unkci ju'=-L>" ; stx 
2040 RETURN' 


2060*REM-> RACUN 


2061 LET z=0! LET x=0: LET y=0: 60 SUB 2380: PLOT xp,yp: LET 
xxp=xp: LET yyp=yp 

2062 LET x=x-f! LET y=0: 60 SUB 2380: DRAW (xp-xxp) , (yp-yyp) : 

LET xxp=xp: LET yyp=yp 

2063 LET x=xt: LET y=0: 60 BUB 2380: DRAW (xp-xxp) , (yp-yyp) : 

LET xxp=xp! LET yyp=yp 

2064 LET x=0: LET y=0: 60 SUB 2380: PLOT xp,yp: LET xxp=xp: LET 

yyp=yp 


2065 

LET 

y=yf : 

LET x = 

=0: 

60 SUB 2380: 


LET 

xxp=xp 

: LET 

yyp 

=yp 



2066 

LET 

y=y t : 

LET x = 

=0: 

60 SUB 2380: 


LET 

xxp=xp 

: LET 

yyp 

=yp 



2067 

LET 

x=xt: 

LET y= 

=yt: 

60 

SUB 

2380; 


LET 

yyp=yp 






2068 

LET 

y=y+ : 

LET x = 

=xt: 

60 

SUB 

2380; 


LET 

xxp=xp 

: LET 

yyp 

=yp 



2069 

LET 

y=yf : 

LET x = 

=xf : 

60 

SUB 

2380; 


LET 

xxp=xp 

: LET 

yyp 

=yp 



2070 

LET 

y=yt: 

LET x^ 

=xF: 

60 

SUB 

2380 


LET 

xxp=xp 

: LET 

yyp 

=yp 



2071 

LET 

y=yt: 

LET x^ 

=xt: 

60 

SUB 

2380 


LET 

xxp=xp 

: LET 

yyp 

=yp 




2075 IF d*=''y'' THEN 60 TO 4000 
2080 FOR x=x+ TO xt STEP stx 
2100 LET 1$=" ! ! " 

2110 LET y=yF: 60 SUB 2730 
2120 FOR y=yF TO yt STEP sty 
2130 LET z=FN z(x,y) 


DRAW (xp-xxp) , (yp-yyp) : 
DRAW (xp-xxp) , (yp-yyp) : 
PLOT xp,yp: LET xxp=xp: 
DRAW (xp-xxp) , (yp-yyp) : 
DRAW (xp-xxp) , (yp-yyp) : 
DRAW (xp-xxp) , (yp-yyp) : 
DRAW (xp-xxp) , (yp-yyp) : 
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2140 GO SUB 2380 
2150 GO SUB 2620 
2160 NEXT y 

2170 LET y=yt: GO SUB 2730 
2180 NEXT X 
2200 LET 1$=" M " 

221 OOREN* 44«»«04« 

2220 FOR y=yF TO yt STEP sty 
2240 LET 1$=“ ! ! " 

2250 LET x=>!f: 60 SUB 2730 
2260 FOR x=xF TO xt STEP stx 
2280 LET z=FN z(x,y) 

2300 GO SUB 2400 
2310 GO SUB 2620 
2320 NEXT x 

2330 LET x=xt! 60 SUB 2730 
2340 NEXT y 
2360 GO TO 2560 

2380OREN-> r«CUn4z«»DlQt4 

2400 LET xp=12»x+m2*y 

2410 BEEP .01,1 

2420 LET yp=13*x+m3»y+n3»z*ze 

2440 LET xp=INT (ix+xp4en+.5) 

2460 LET yp=INT <iy+yp*en+.5) 

2480 RETURN 
2560 GO SUB 3120 
2580 RETURN 
2600 STOP 

2620*REM* crtanJe»s»iiirtzoro 

2640 IF NOT (xp<255 AND xp>0 AND yp<175 AND yp>0) THEN GO TO 
2700 

2660 IF l$=“ok" THEN LET xd=xp-xsi LET yd=yp-ysi DRAW INT (.5+ 
xd),INT (.5+yd) 

2680 LET X5=xp! LET ys=yp: PLOT INT (.5+xs),INT (.5+ys): LET 1$ 
=''ok"! RETURN 
2700 LET !$='■ ! ! " 

2720 BEEP .01,50: RETURN 

2730 IF q$="y'' THEN LET z=0: 60 SUB 2380: 60 SUB 2620 
2732 RETURN 

2740-»REN ^NI 
2760 GO SUB 1600 

2770 PRINT PAPER 7; INK 0; ’ ''■^■^*3D'-^plDtter'^*'^*^za*'MoJ*mikro‘' 
2780 PRINT PAPER 6; ’ ''**<’0<’P*C<’I®J*E***'><>o***'>**<>*o*o*" 

2800 PRINT 

2820 PRINT PAPER 5; INK 0; ''■»**3D:*«Z=Z (X, Y)************-*-***" 
2840 PRINT ’ "*F'>input*funkci je“ 

2860 PRINT "*c*input*koordinatnog*sistema" 

2880 PRINT "^d^pararoetri^za^draw" 

2POO PRINT "*s*START" 

2940 PRINT PAPER 4j ’ "*»'»3D: *Z=Z (*R(X)o) ****-5-*o«-*»«***" : PRINT ’ 
"*r*RUN" 
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2950 PRINT PAPER 3; INK 0’ "*«2D: *Z=Z (r) **C*testiran " 
2955 PRINT ’ "*2*za*2D*funkci ju" 

2960 PAUSE 0 
2980 LET at=INKEY$ 

3000 IF a»="f'' THEN GO SUB 1700 
3020 IF a$="r" THEN RUN 1000 
3040 IF a»='’c'' THEN 60 SUB 1800 
3050 IF a$="2'' THEN 60 SUB 2 
3060 IF a$=''d" THEN 60 SUB 1940 

3080 IF a*=''s“ THEN CLS : PRINT AT 21,0; "Z=";f$i GO SUB 2060 
3100 60 TO 2740 

31 lO^REMO OPOPPPP 

3120 PRINT AT 21,27; FLASH l;"c-s-e" 

3140 PAUSE 0: LET a*=INKEY* 

3160 PRINT AT 21 , 27; 

3180 IF a»="c" THEN COPY 

3200 IF a*=''s'' THEN INPUT '■NAME:";b$! IF LEN b*<ll THEN PRINT 
AT 0,0; b$: SAVE b$SCREEN$ 

3220 IF a$="e" THEN RETURN 
3240 GO TO 3120 


326Q-»REMOizracunOza«rot«ciju 
3280 FOR n=l TO 3 

3300 LET k(n,2)=C0S (k (n, 3) tPI/ 180) : LET k(n,l)=SIN (k(n,3)*PI/ 
180) 

3320 NEXT n 

3340 LET 12=-k(2,2)*k(3,l)-k(l,2)*k(2,l)*k(3,2) 

3360 LET m2— k<2,l)*k(3,l)+k(l,2)*k(2,2)*k(3,2) 

3380 LET n2=k(l,l)*k(3,2) 

3400 LET 13=k(l,l)»k(2,l) 

3420 LET m3=-k(l,l)*k(2,2) 

3440 LET n3=k<l,2) 

3460. return 

348Q»REM« »DEF«FN<> 

3500 DEF FN z(x,y)=0 

3520*REM* "F 1 ► PR I T I SN I *CONT I NUE "f 0> 

3540 SAVE "3D,FN" LINE 3000 

3560 CLEAR 64998: LOAD '"'CODE 65000,150 

3580 CLS 

4000»REM<‘ «<>vldl iivMFu 
4100 FOR x=xF TO xt STEP stx 
4110 FOR y=yF TO yt STEP sty 
4115 LET z=FN z(x,y) 

4120 GO SUB 2380 
4130 GO SUB 1500 
4140 NEXT y 
4150 NEXT X 
9999 PAUSE 0: 60 TO 0 
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865 

Vratimo se malo u ona stara romanti dna vremena kad smo joS 
broieve umeli da deli mo “pe^ke". VBrovatno S 0 sedate da se svaki 
decimaini broj mote da napiie u obliku raziomka. ftko ne 
drukdije, a ono kao razlomak koji u nazivniku ima potenciju 
broja deset. Svi razlomci ne mogu se predstaviti kao decimaini 
bj^oj 5 de+ i n i t 1 vni m brojem decimalnih mesta- Da vam odamo tajnu: 
svaki razlomak se posle odredenog broja decimalnih mesta podeli 
tako da ostatak bude nula, ili se posle odredenog broja 
decimalnih brojki koji je u srodstvu s brojem u nazivniku, podne 
da ponavlja. Razliditih ostataka u deljenju moie ukupno da bude 
najviSe za jedan manje od velidine samog nazivnika. U zagradama 
program obeleii grupu brojeva koji se ponavl jaju- 

Program smo ukljudili u knjigu jer uz njega moiete mnogo da 
naudite, narodito ako budete teleli da shvatite kako radi. 

5 PAPER 5: BRI6HT 0: INK 9: BORDER 6: CIS : POKE 23609,20 

9*REH* input 
10 LET 11=0: LET ne=PI 
12 INPUT "Upi si ''razl omak* ! *" ; a* 

15 IF a*="ne‘' THEN STOP 
20 LET nm=l 

25 IF nm=PI THEN GO TO 200 

27 FOR n = l TO LEN a$: IF at (n )=”/'' THEN LET aa=n 
23 NEXT n 

29 LET r=yAL at ( 1 TO aa-1): LET d=VAL at(aa+l TO ) 

30 LET nm=d: ■<p6>- DIM q(nm): DIM o(nm) <p7>' 

40 PRINT ”a$; ”*=<>"; 

45»REM<> CELI<-DE0 

50*REM:“!jF-Sr<d*THEN*G0*T0*70 

60 LET a=INT !r/d,): PRINT a;".";: LET r=r-a»d 
70 LET r=r*10 

75‘REM* DECIMALNA-»MESTA 
80‘'p6»' FDR 1 = 1 TO nm 

90 IF r=0 THEN LET 1=1-1: GO TO 130 
lOO LET □(l)=r: LET q(l)=INT ir/d): LET r=10* (r-q (1 ) *d) 
no <p5f' FOR m=l TO 1: IF r=oimi THEN LET 11 = 1: 60 TO 130 
120 NEXT m: 'p NEXT 1 -<p7>- 

1 25iREH» KRAJ->PETLJE 
126 LET 1=1-1 

160<p6t- FOR 1 = 1 TO 1: IF II AND m=z THEN PRINT 
170 PRINT q(7) NEXT z -'pT*' 

175 IF 11 THEN PRINT "I"; 

190 IF NOT 11 AND rOO THEN PRINT ' " -<p6»- NA«'PRVIH<>" ; nm; "OMESTA* 
NEMA'-’PONAVLJANJA ‘pT*- " : INPUT "Novi *brQj*mesta?'''- i kol i ko. . 
lii'S’NE’ ) ";nm: GO TO 25 
195 IF r=0 THEN PRINT "10}" 

200 60 TO 10 

9990 CLEAR : SAVE “m-^div" LINE 0 


154 matematika 



F=- F< c: X z INI o MfNjo 2: e;^4vX e: 


1 i 19 

Va^ spektrum ume cJa ratuna tamo negde od devet do deset 
^•^^ta, ^to ponekad nije dovoljno. Pomo<fu ovog programa verovatno 
(tete razumeti kako radunar "melje" brojeve. 

Oveti deo programa, izmedu 300. i 319. reda, kontroli^e 
uno^enje podataka (INPUT). Rezultat se ispisuje u redovima od 
341. do 348. Zanimijivost algoritma leii u tome ^to radrunar ne 
uzme odmah u obzir prenos, ved to radi podprogram za konadni 
raspored u redovima od l99. do 220. Glavni deo dogada se izmedu 
330. 1 340. reda, gde se u polje p upisuju delimidni produkti . 
Svaki element tog polja predstavlja jedan od onih stubaca koje 
dobijete prilikom potpisivanja kada mnotite bez 
Fotprogram izmedu 199. i 220. reda sabire pojedine 
polje u. Primeticete da se u 344. redu na svaka tri 
mesta napravi razmak. Ako algoritam razumete, moti 
problema da ga popravite tako da dimenzije polja vi^e 
konstantne, pa tete moti da mnoSite brojeve do 
spektrumovih moguCnosti. 

5 POKE 23609,20: PAPER 7: EPIbHT 1: INK 9: BORDER 6: RUN 

0300 


ratunara. 
stupce u 
ispisana 
tete bez 
ne budu 
granica 


1 99-»REh- sub’'>krajinji <ra5Dored 
200 FOR n=l TO iena+ienb 
2 OZ LET' r = I N T ( p ( n ) / 1 0 ) 

205 LET Li \ n ) - ^ p n .) -r * 1 0 ) 

206 LET p (n + 1 ) =p (n + l ) +r 
2i0 NEXT n 

220 RETURN 

300---Rtin-- tlNQZ£NJE-^>DQ<^100--'X<^100 

30i Cl 3 : PRINT ^ " ^p2^ n 7t-^nN0ZtNJE“VELiKIH-CELIH<^BRuJEVA'^> ^p7f' 
i 0^ ” 

305 DIM a3iU00): DIM bS (lOO); DIM p(200): DIM li(200) 

3 10 INPUT " '■■■'PP;v I ■■■ BRUJ ■ LINE i$ 

3 1 1 LET 1 0 n a=LEN i $ : FOR N~ 1 TO 1 en a 

312 IF CODE ifun)>57 OR CODE i$in)<43 THEN 60 TO 0310 

313 LET a$ ( i ena-n+ 1 ) =i T (n ) : NEXT n 

314 PRINT ' ^ 1$^' 

315 LET 1$=“'': INPUT "<^DR0bI'^>Bh0J-: ^ LINE i$ 

316 LET lenb^^LEN li: FOR N=1 TO lenb 

317 IF CODE i5(n)>57 OR CODE i5(n)<48 THEN 60 TO 0310 
3lS LET bf- (1 enp-n + l) =1 $ (n ) : NEXT n 

319 PRINT 1$^ 

330 FOR b=l TO lenb 
332 FOR a=l TO lena 

334 LET p (a+b-1 ) =p (a+b-1 ) +'v‘AL b$ (b ; iVAL ai (al 
336 NEXT a 

335 NPXT b 

340 60 SUB 200 

341 ••REM~--- print 
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J42 FUR n=lena+l8nb Tu 1 S I £R -1 

343 IF ri = lena+lenb AND u(n)=0 THEN NEXT n 

344 IF n/3=INT !n/3) THEN PRINT " <p6f' * ip />■ " ; 

345 F'FliNT F'hPER 6|;u 3, n); 

346 NEXT n 

34S INPUT "PoriovQH?4[-::[j/n'-']4" . b$; ip biT(l) = ‘'d‘' THEN BEEP 1,1: 
60 TO 5 

34? PRINT FLASH 1 ’ ” '' i'HHHSPREMANiSHMHZAsSNIMANJE***;’*'' : LOAD 
350 STOP 

9990 CLEAR : SAVE "m-prod'* LINE 0 
9999 STOP 


TFc<=»2E;ivia e rjLJi_« 


261 

Nule -fLinkcije mogu da 5e traie na viSe nadina. Jedan od njih 
je Njutnov iteracioni metod. 

Po4to ditaoci ove knjige ne hrle ba^ svaki dan u hramove 
egzaktne nauke, nai komentar bide neSto jednostavni j i . Molimo 
matematidare da nam to previSe ne zamere. 

Algoritam je veoma jednostavan. Izaberite neki x za koji 
odekLijete da de va4a -funkcija imati nulu. Na funkciju u toj 
tadki povLidete tangentu do apscise koordinatnog sistema. 6de 
tangenta sede os, nalazi se va4 novi k; tu postupak ponovite- 
Ako je funkcija lepo obla (ima kontinuiran izvod), postoje samo 
dve mogudnosti: nadi dete ili nulu ili minimum funkcije- 

F'rogram za sada ne upozorava korisnika da u biizini nema 
nule. To modete da udinite sami , tako da testirate vrednost 
izvoda. Ako je vrednost veoma blizu nule, znadi da si je 
funkcija ved veoma slicna: nail i ste minimum. 

60Q-iREI4-- Newtonnva4i teraci ia 

601 INPUT "Upisi !'!’f = 

602 DEF FN y(x)=VAL f$ 

603 INPUT ''Upi5i: «f ’(;■;)=" ;o* 

604 DEF FN o(x)=yAL d$ 

605 INPUT ''pDcetna''''vredno5tHX-a=" ; X : PRINT ’ ’ '' 0X'4 ‘' ."f ix)" 

606 LET k 1=!;-FN y(K)/FN o(k) 

607 PRINT ;-;,FN yix) 

608 LET x=xl 

609 IF ABS FN y(x)>=le-10 THEN 60 TO 606 

610 RETURN 
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1 260 

Program bisekcionim metodom izraduna nule jednadine s jednom 
nepoznatom- Funkcija mora da bude zadata u obliku F(x)=0- 
Deljenje intervala bira se u skladu s odekivanom gustinom nula. 
Tadnost je into tako proi z vol Jna- 

□d 10- do 60- reda upi^ete ulazne podatke. Od 70- do 210- 
reda radunar trail nule funkcije, a od 220- do 270- reda 
odreduje nule na potrebnu tadnost suiavanjem intervala 
gde je z=(x+y)/2- 

Ako je F<z)=0!, z je nula; ako je F<z)*F(x)'0 onda je x=z; ako 
je F(z)»F<x)>0, onda je y=z - U 260- redu program utvrdi da 1 i je 
F(z) jednak null i suiava granice intervala do potrebne 
tadnosti- U 280- redu kontroli^e da li -funkcija F(x) u ovoj 
tadki ima pol odnosno da li je F<x) kontinuirana funkcija- U 
380- redu nalazi se ispis- Ako je oznaden zvezdicom, onda je to 
pol tunkcije F(x) u tadki z- 

10 CLS 

20 2ET n-0 

30 INPUT ’T(X)^";w$ 

40 DEF FN f(>i)=VAL 
30 PRINT TAB 3; “F w$ 

60 INPUT "Don ja'-grani ca'->i nterval a'--'A=" ; a' "&Drn_ia'-'''grani ca''> 

1 ntervai a-B=‘' ; b ' "del Jen nterval a'-'Dx = " ; d:-r "Tacno5t'-e=+-" 


70 

PRINi ’TAB 2; "A-"; a: 


PRINT TAB 2 

II 

O' 


PRINT TAB 2; "Dx = ";d>;: 


PRINT TAB 2 

. ”0 = + -'' ; e 

9?'; 

IF alb THEN GO TO 100 




90 

PRINT " A'-ni je^manj i ••>Dd'7B" : 


GO TO 10 


1 fJO 

FOR u-1 TO 17 STEP 16: 


F OR q ~ 1 TO 

13; 

110 

LET y=a+dx 




![ 2t' 

FDR x^a TO b STEP dx 




130 

PRINT AT 3, 12; "x = ";x; 


PRINT AT 4,1 

2;"y=";y;"- 

140 

LET q=FN -fOO^tiPN t (y) 




150 

IF q>0 THEN GO TO 190 




1 60 

IF PN +(y)=0 THEN LET z^y: GO 

TO 

2 SO 


170 

IF FN f(x)=0 THEN LET z=x: GO 

TO 

23 0 


1 SO 

IF q70 THEN GO TO 220 




190 

LET y-y4dx 




200 

NEXT X 




2 1 0 

PRINT AT 21,4; "NENA^yiSE^NULA" 


GO TO 10 


220 

LET z=(x+y)/2: 


PRINT AT 5, 

12;"z-";z;' 

2Z0 

IF FN -f(z)=0 THEN GO TO 230 




240 

IF FN f(z)^:FN f(x)>0 THEN LET 

xl 

=x: LET x-z: 

GO TO 260 

250 

IF FN i iz) tFH -f(y)>0 THEN LET 

;< 1 

=y: LET y=z : 

GO TO 260 

260 

IF (ABS (z~xl))<e THEN GO TO 2 

iSO 



2 7C) 

GO TO 220 





EBO IP (ABS FN ■f(z))<e THEN GO TO 300 

290 LET z-INT (z / ( 1 O^e) 5) : LET z==z%etlO: PRINT AT 7-^q , u; 
;z: GO TO 310 
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300 LET n=n+l: LET '=INT (z / ( 10*e) +. 5) : LET z=z»e*10: PRINT AT 
7+g, Li; " X " ; n ; " = " i z 
310 LET a=z+5*e: LET y=a+d;-; 

320 NEXT g: NEXT Li 
330 GO TO 10 

KV#=%£>F{«T|V1E I kujbinie; J E O In1 <=» ci im ei 

1972 

Ovaj jednostavni program nema ni^ta zajednidko 5 poznatim 
Lotusovim proizvodom- Pomodi de svim srednjo^kol ci ma koji muku 
mode 1 po poznatim formulama izradunavaju nule funkcije 

kvadratnih jednadina. Malo te±e je potra±iti reSenje odnosno 
nulu tunkcije kubne jednadine, zbog dega je dodata i ova 
mogudnost . 

Na podetku treba programu navesti koe-f i ci jente uz dlanove sa 
x3, x2, X i konstantu. Zatim radunar izraduna nule i saopiti da 
li ima re^enja odnosno da li su nule imaginarne- 

100 60 TO 1 26 : '■ REM* iednaci ne‘>2<‘3 


1 0 1 -iRETK- j nDLit<-kQ<>k 1 


102 

INPUT 

"koef^pri ••••■> 

■»+ It- 3 -i-fOt- : -9 

;k3 

1 03 

INPUT 

"koe+''>pri-h 

-t-f 1'- 2 -<+0*- -9: 

';k2 

104 

INPUT 

"koef->pri->; 

■'"<f It- 1 -if0t--9:-9 

;kl 

105 

INPUT 

"kDet-'>pri 

-t-f It- 0 -t-f 0‘- -9; -9 

‘;k0 


106 RETURN 
1 10»REN» kub<’deQ 

111 LET qq=(3»kj-k2»k2/k3)/(9*k3) 

112 LET rr=( (9»k2»kl/k3)-27)|ik0- 2tk2*k2*k2/ (k3*k3) ) / (54*k3) 

113 LET pp=(qq*qq*qq+rr*rr) 

114 IF pp:>=0 THEN LET S5=S6N (rr+SQR pp)*(ABS (rr+SQR pp))'(l/ 
3): LET tt=(SGN irr-SQR pp))»((ABS (rr-SQR pp > ) '■' ( 1 /3) ) : 

LET K3=s5+tt-k2/' (3ik3) : GO TO 116 

115 LET y,3=<2*SQR (-qq))*C0S ((1/3)*ACS (rr/SQR ( i-qq ) -''G) ) ) -k2/ 
(3»k3) 

116 PRINT ’ " real<‘<>0 ~ ".x3. 

117 LET k0=x3*(x3+k2/k3>+kl/k3 

118 LET kl=(x3+k2/k3) 

119 LET k2=l 

1 20*REM*kyadfdeo 

121 LET dd=(kll:kl-4*k2*k0) : IF dd<0 THEN PRINT ’ " koniDlex '-- -kl/ 
2/k2; "■5-+-*I*";SQR (-dd) / (2*k2) : BEEP 1,-20: RETURN 

122 LET x2=(-kl+SQR dd)/2/k2 

123 LET xl=(-kl-SuR dd)/2/k2 

124 PRINT x2,xl' 

125 RETURN 

1 26 '>RE Ni qlavni<’proa 

127 60 SUB 101 

128 IF k3<>0 THEN 60 SUB 110 

129 IF k3=0 THEN GO SUB 120 

130 RETURN 

1000 DEF FN a (a) =2*a*a»a+6»a*a+Sia+2 

1001 PRINT FN a(-l) 
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Program objavljujemo zato jer bez njega skoro nema ni jedne 
knjige o paskalu. Nedete poverovati, all i u bejsiku je mogute 
da se potraie prosti brojevi od 1 do 2000. 

Upotrebljeni algoritam sastavio je ved odavno dika Eratosten 
iz stare Grdke. Kao 4to je poznato, prosti broj je broj kojeg ne 
deli nijedan broj bez ostatka, osim, razume se, jedinice. 

Algoritam ne ispituje za svaki broj da li je prosti broj ili 
ne, nego najpre otpiSe sve parne brojeve i sebi u polju Z 
pripremi nekakvu statistiku. U polju s jedinicom to znadi da je 
broj prost; takav se odmah ispiie. Ako nademo novi prosti broj, 
potrebno je sve vi^e produkte toga broja oznaditi da nisu prosti 
brojevi. Algoritam je zato malo sporiji u traienju najniiih 
prostih brojeva, ali zato brz u traienju vedih prostih brojeva. 


10 INPUT "Do*kog‘>brD_is'cla'''traz im'"'pro5te***brojeve'''?'''''' ’ " >" ; di m 
15 LET dim=INT (dim/2) 

20 DIM zt(dim) 

30 FOR i=l TO dim: LET z$(i)="l": NEXT i 
60 PRINT 2, " je'-’prDst*broj''0 " 

70 FOR 1=1 TO dim 

80 IF z$(i)="0" THEN 60 TO 150 

90 PRINT 2»i + l, "je-'-prost'-broj*! " 

100 LET k=l 

110 IF i+k* (2*i+l ) >dim THEN GO TO 150 
120 LET i$(i+k*(2*i+l) )="0" 

130 LET k=k+l 
140 GO TO no 
150 NEXT 1 
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Za mnoge probleme u -fizici i tehnici re^enje nije u obliku 
samo jedne jednaCine, kao npr. za kvadraturu kruga ill 
elektridnu struju u zavisnosti od napona i otpora, nego pojave 
zavise od vi4e velitina. Verovatno ae sedate zadataka iz osnovne 
4kole Li stilu: Marko i Andrija imaju zajedno pet pomorandii, a 
Marko ima dve pomorandSe viSe od Andrije. Zadatak biste svakako 
Limel i da recite i napamet, all mo±e da se re^i i tako, da se 
postavi sistem jednadina. Broj pomorandii koje imaju Marko i 
Andrija oznadi se njihovim imenima. Tako se dobiju dve 
jednadine: 

Marko+Andri ja =5 
Marko— Andri ja =2 

Ko se razume u matridni radun, napisade te jednadine ovako: 

CA3 * X = R. 

Takve i slidne sisteme, sve do velidine 68 * 68, moiete da 

reiavate upotrebom ovog programa. Program najpre tako prepravi 
matricu, da svi elementi ispod dijagonaie imaju vrednost nula- U 
poslednjem redu svi elementi, sem di jagonalnog, imaju vrednost 
nula. Sada sve jednadine mogu i direktno da se izradunaju. 
Poslednji element uvrsti se u sve gornje jednadine i u 
pretposledn joj jednadini moie da se izraduna slededi element. 
Postupak se ponavlja dok se ne reSe sve jednadine. 

Od 150. do 162. reda program se pobrine za uno^enje podataka 
(INPUT) i dimenziju matrice. Od 163. do 184. reda pravi nule 
ispod dijagonaie. Sledi kontrola da li je sistem odreden ili ne 
(dve nepoznate ne moiete da izradunate iz dve jednake 
jednadine). Na kraju se ispiSu nepoznate. 

Program je duii nego Sto je potrebno. Obezbedi lep ispis, a 
ako neko deSde re^ava sisteme jednadina, prepravide program tako 
da bude upotrebljiv kao potprogram kom treba zadati broj 
jednadina i nepoznatih te matricu. Moie da se pobolj^a i tako, 
da se ista glavna matrica izraduna s razliditim stupcima s 
r e4en j i ma. 

1 f;0-i REM > 5 ISTEM-LINEARNlH-JEDNflClNA 

151 PAPER 7: BORDER 7: INK 9: BRIGHT 0: OLS 

152 INPUT "Br.'>jednacina*[i'''nepoznatih]'";mev: LET me5=mev+l 

153 PRINT BRIGHT 1 ; "RESAVANJE*SISTEMA'>'' ; mev; mev; : DIM e( 

mev,mes): DIM k (mev) : PRINT 

154 DEE FN pirn, 5) = (m<=7)*INT (32/iii-0. 01 ) * (s-l ) + !ra=7) * INT ( (s) / 

2) + (s=m AND m<>7) 

155 FOR v=l TO mev: FOR s=l TO mes 

156 INF'UT "El ement'-’E* ( ; (v) ; " , " ; <s) ; " ) ■■'■I'-'"'' ; e (y , s) 

157 IF mey<=6 THEN DIM a$(12): LET a*=STRt (e(v,s)): GO 

SUB 0208 

158 IF mev >6 THEN PR I N T " ELEMENT i'E (";( V 8 e ( v , 5 ) 

159 NEXT s 

160 IF mev >6 THEN F'R I N T 

161 NEXT V 

162 INK 9 
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1 lb 3 R E f 1 

164 LET ned=0 

165 FOR s=l TO mev-1: LET a~l 

166 LET ma;-;=s 

167 FOR n=s TO inev 

163 IF ABS e(n,s)>ABS e(ma;-;,s) THEN LET ma;.!=n 

169 NEXT n 

170 FOR n=s TO mes 

171 LET loc=eiS|,n) 

172 LET e(5,n)=e(mai-:,ni 

173 LET e (max , n ) =1 oc 

174 NEXT n 

175 IF ABS e(5,s)<le-7 THEN GO TO 0183 

1/6 FOR v=5+l TO mev 

177 IF ABS e(v,5)ae-7 THEN BO TO 0132 

178 LET qq=e (s, s) /e tv, s) 

179 FOR n=5 TO mes 

ISO LET etv,n)=e(v,n) *qq-e(5,n) 

181 NEXT n 

182 NEXT V 

133 IF ABS e(5,5)<le-7 THEN LET' ned=ned+l 

134 NEXT s 

1 85<-REMv kra i<*Detl ie<’za-»nule 

186 IF ABS e t mev , mev ) < 1 e-7 THEN LET ned=ned+l 

187 IF nedOO THEN PRINT ” FLASH 1 ’ "SISTEM- JE*" ; ned ; "^puta* 

NEUDREDJEN" ’ ’ 

188 IF ned=0 THEN 60 TO 0196 

1 aSvREMv iSDi s<’ako<’neodred ieno 

190 FOR v=l TO mev: FOR s=l TO mes 

191 IF mev<=6 THEN DIM a* (12): LET a*=STR$ (etv.s)): GO 

SUB u2o8 

192 IF mev>6 THEN PRINT "E:LEMENT’>E ( '' ; (V) (S) e (v, s) 

193 NEXT s 

194 IF mev >6 THEN PRINT 

195 NEXT V 

1 96 >REM-> racunan ie'-^nepoznatih 

197 FOR v=mev TO 1 STEP -1: LET qq=0 

198 IF etv,v)=0 THEN INF'UT " Izaberi v;: ("; (v) Cv) : GO TO 

0203 

199 FOR s=v+l TO mev 

200 LET qq=qq+e ( V, 5) »;■; (s) 

201 NEXT 5 

202 LET K ( v) = (e ( v, mes) -qq ) /e (v, v) 

203 NEXT V 

204-'-'REM'-' q spi s 

205 PRINT BRIGHT 1 ' ’ “ (i 0' <>***<>RvvE*'!>S**E<>*N*s-J*<'A*!3 

206 PRINT : FOR v=l TO mev: PRINT PAPER (7- ( (v/2) = INT (v/2) ) ) 

; "Xv-zavstupac*"; v,x (v NEXT v 

207 RETURN 

203 PRINT ;TAB FN ptmes,5>; INVERSE (INT ( (v+s) /2) = (v+s) /2) ; 
PAPER (7-(mes=5)); BRIGHT 1 ; a$ ( 1 TO (INT (32/mes-. 01 ) + ( 
mes=7 AND s/2<>INT (s/2)))); 

209 RETURN 
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Program raduna integrals I na krajnjem intervalu (AjB) 

kont i nui r ane funkcije F(x), Za integraciju upotrebl java -formulu 
Si mpsona: 

I = h/3 (F(A+h) +2F (A+2h) +. . . +2F (B-2h) +4F (B-h) +F (B) ) +N 

N = 1/15 <I(m)-I(2m)) ocena greSke 

h = (A-B)/m korak integracije 

Program sam odredi potreban broj koraka integracije m s 
Dbzirom na potrebnu tadnost e. Ispisana vrednost integrals I 
zaokrudena je na poslednjem tadnom mestu- Komentari su u 

redovima s REM, zbog dega programu nije potreban komentar . 

10 BORDER 0: INK 7: PAPER 1 

11 CLS 

15 POKE 23609,150 

■i>UP I S« ANL I T I CK I s- Z AD ATE OPUNKC I J E<>* 


20 INPUT "F(x)=";w$ 

23 IF LEN w$=0 THEN SO TO 20 
25 PRINT TAB 2-, "F (x ) =" ; w$ 

30 DEF FN ■f(x)=VAL w$ 

40 INPUT ’'donja*granica*A=" ; a’ "gorn ja<’grani ca*B=" 

;b’ ‘'tacnost '>e=" ; e 

45 PRINT ’TAB 2;''A=";a’ TAB 2;"B=";b’TAB 2;”e=";a 

50 LET m=3: LET 11=0 
55 60 TO 300 


56'-’REN''-’*--’ ■■■’ 

*‘:><>**:>-:>RACUNANJE*FUNKC I JSK I H*-**'!’-5<>>!’-'>VREDN0ST I 


65 LET dx=ABS (a-b)/m 

70 DIM flm+l) 

80 LET n=l 

90 FOR x=a TO b STEP dx 

100 LET T(n)=FN Hr.) 
no LET n=n+l 
120 NEXT X 
130 RETURN 

- 'R ACUN AN J E'!> I NTEGR AL A*- 

200 LET s=-f (1)+F (m+1) 

210 FOR i=2 TO m STEP 2 
220 LET s=s+4*F(i) 

230 NEXT i 

240 FOR i=3 TO m-1 STEP 2 
250 LET 5=5+2*f(i) 

260 NEXT i 
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2*5 LET 1=11 

270 LET Il=(dx/3))(:5 

280 RETURN 

«;>i.-i.-<.GLAVNI*PROGRAM» 

SOO LET m=m*2 
310 GO 8L)B 60 
330 GO SuB 200 
340 60 SUB 400 
350 GO TO 300 

4oO*REM'i' 

410 LET nap= ( I-I 1 ) 715 

420 IF ABS nap<e THEN GO TO 500 

430 RETURN 

510 LET Il=Il+nap 
515 PRINT 

520 LET I1=(INT ( 1 1 /e+. 5) ) *e: PRINT TAB 5;"I = ''jIl 

530 PAUSE 0: IF INKEY$="" THEN GO TO 530 

540 GO TO 20 
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605 



10 PAPER 0: BORDER 0: INK 3: CLS : LET d$=''«*q - S'/.* -tP 

0Y*P* P@23tb0/*P *43t$* (O/iaAsfcP* .*404, DSa*J '‘f t/e’/.*'/.'’**) * ■ 

0) <>) , >*CiiiE«B-E@BjtB0#l 2, 2440HO1 1 2, 2*71 29/C*pO!<*pO?<«pO?<i;pO?<'> 
pO&*pp<* (0<* ip<<> (0<'> (p< * (0<* <p<* (0< <’ (p<''’ (0<* (p<<7/+‘'0O!<*0O&‘> 
0O?<*0OS-<'-@O&:*0p<''^ (0< ---' (p<* (p< ACS---‘S ! 0 #v'90#'"''*'---'#''-'9''#*9 ■■#*#'-4 

±90#'>9@# *.i@\*p''\*pN7 ) 0/4’ 0’ *#@1. = 

5 1=0/4’ 0’ *, <>#0, *#«■, *#@5*#*. 0’ <’#pX4’ 4$* ! p$*#4’ *$@, <>* ' / 

*U0Je#*#*#*#" 

30 FOR z=l TO 6: PLOT CODE d« ( 1 ) -32, CODE dt(2)-32: FOR i=4 TO 
CODE d*(3) STEP 2: LET a=PI/64* (CODE d$(i)-32): LET r=CODE 
d$(i+l)-32! DRAW r*COS a,r*SIN a: NEXT i: LET d*=dt(CODE d* 
(31+1 TO ): IF z>4 THEN INK 4: BEEP .1,30 
40 NEXT z: PRLNT INK 5; ’ '‘*0" 
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Uhvati brojku 

2942 

47 

Miro Vehar 

Romeo 

1952 

49 

Mi 1 oS Nemec 

Z1 o 

4068 

51 

l 2 tok Prosenc 

Most okva^enih 

7745 

54 

Ljubinka Kostid 

l_OG I OKG: I GFiEI 





Ajnc 
Kaz i no 

Cetiri u redu 
Memo break 
2ed 

Carobna tablica 
Domi ne 




Mno±enJe i deljenje 
Sabi ran je 
Ravnoteia 
Povr^i ne 
Nizovi brojeva 
Model vasione 
NJeprav. engl . glagoli 


2733 

60 

Igor Bizjak 

3980 

62 

Ziga Turk 

2473 

65 

Jerka Urbas 

7699 

67 

Marjan Hand 

4975 

73 

Antun Petri d 

2452 

77 

Miloi Randi d 

ISIOO 

79 

Mi ha Subic 

I 


865 

92 

Rajko Jovanovid 

1587 

93 

Ale% Levstik 

2191 

95 

Tone Marolt 

2189 

98 

Miroslav Jankovid 

1203 

100 

Mile Jurkovid 

1204 

102 

Janez Neman! d 

5609 

104 

Andre j 6robler 


OF< i SINJ I OK I l=*F<OC3Rrf=iM I 


: >i:Mna'f or 

4C»04 

110 

Grega 

Jesi h 

1 )( I -ne 

1427 

114 

Ivo Culav 

naest prstiju 

278 

116 

Rok Leban 

h'^ihomapa 1 

709 

1 IS 

2i ga 

Turk 

M'»niomapa 2 

478 

119 

Ciri 1 

Kr a^evec 

fel r ol ovanje 

835 

120 

Bogdan Hrastnik 

L 1 an le promenl jivih 

1054 

120 

Ciri 1 

Kra^evec 

b 1 nhi ulna memori ja 

248 

121 

Ciril 

Kra^evec 

Pi t-*nnmpr 1 sanje 

4050 

122 

Ciri! 

Kr a^evec 

Ri •iiK ihr i fianje 

1433 

123 

Ciril 

Kra^evec 

ii 1 *4. Ill It? 

748 

124 

Ciri 1 

Kr a^evec 

Kii(nr.mie memori je 

744 

126 

Ciri 1 

Kra^evec 


C i< I e: 


Cr t ai' 


3050 

126 

Peter Krempu^ 

^1 ♦! mr 

.it nr znakova 

4883 

129 

Vojko Stojan 

pi »v»m‘ 

slova 

1111 

132 

Albin Sinica 

pi IVIM* 

.in le 

2743 

133 

Tone Lapajne 

Mai j 

ir 1 nt 

2118 

135 

Branko Novosel 

bn in 


3382 

137 

Andrej Grobler 

1 11 1 

i.imt?nt:i 

573 

140 

Jaka KoSelj 

Ml H H |l 

Miipionici 

688 

142 

Jure Kebe 

bi i\ .11 

j nna tel a 

2026 

144 

Janko Habjan 

1 r I M 1 1 

miMizionalni dijagrami 

6024 

146 

2iga turk 


1^1# ^ I f£M«=^'r .£ Krf^ 


1 r 1 

'1 1 .-no del jenje 

865 

154 

Mi ha Mesojedec 

1 r 1 

M i.'no mnoienje 

1119 

1 55 

Jo2e Dolenc 

1 r . 

i.'nn le nula 

261 

156 

Asiffl Dizdarevid 

Hi ' 

.nil i oni metod 

1260 

157 

Jeranko Benedikt 

1 V . 

iilr . 1 kub- jednadine 

1972 

158 

Marko Velkavrh 

1 r 1 

i‘ .t 1 brojevi 

318 

159 

Igor Kranjec 

! 1 1 • 

■ tnm linearnih jednatina 

1260 

160 

Boris Campa 

Int 

1 *i|r al 

1608 

162 

Jeranko Benedikt 


Ml ".In hvalisanje 


605 


164 


li. Perc, V. Baumkirhen 
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